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INTRODUCTION 


Introduction 


Well, dean gentle readers like General MacArthur we 
have returned. While we have gotten somewhat behind 
in schedule (?), we hope that the somewhat altered 
appearance of this publication has made the wait 
worth it. 


Frankly, we are in need of high quality material 
for publication on these pages. This is 
particularly true if we are to effectively 
communicate among ourselves and with others. 


APL Quote-Quad 
Number 4, January, 1970 


Anyone who has ever "volunteered" to produce а 
newsletter can sympathize with both the tone and the 
form of this quotation. Somehow typos leap off the page 
after you've struggled for days -- alone and with few 
resources other than your own time and commitment -- 
and the cussed thing has already been printed! Being a 
volunteer editor is a lonely business, at best. 

Newcomers to the APL community may not realize that 
APL Quote-Quad predates the formation of any recognized 
or "organized" APL user group in the computing world at 
large. In fact, APL Quote-Quad provided the first means 
of written communication for APL users outside of IBM, 
and this homespun newsletter was definitely a germinal 
element in the organization of APL users under the 
aegis of the Association for Computing Machinery (ACM). 
Before the ACM's Special Interest Group on Programming 
Languages (SIGPLAN) changed its bylaws in 1972 to 
permit the creation of technical committees, and the 
subsequent formation in 1973 of STAPL (SIGPLAN 
Technical-Committee on APL), there was only an APL 
Committee existing under the SHARE Interactive Systems 
Project. 

It all began in 1968 when APL was released by IBM 
as а Type ІІІ (contributed) program in the SHARE 
library. When the APL Committee was organized at the 
winter meeting of SHARE in Los Angeles, Garth Foster of 
Syracuse University offered to edit and distribute a 
"modest newsletter" to provide a means of 
communication. He named this circular SHAREXAPL\360 and 
expressed the hope that "SHARE would be raised to the 
power of APLX360." We should note two aspects of 
Foster's initial attitude: 1) he was thinking about the 
power * of APL, and 2) he printed 100 copies of the 
first newsletter, although he mailed out all of about 
35. 
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The modest publication which began with an equally 
modest circulation culminated four years later in 
Volume 111, Number 5 which enjoyed a distribution of 
400-500 copies. What started out as an informal 
newsletter eventualiy became the "voice of APL” when 
STAPL was formed and assumed the responsibility for 
publishing APL Quote-Quad for an organized APL 
community. APL Quote-Quad -- The Early Years is a 
collection of the first 14 issues, many of which are no 
longer available. This anthology is rich in APL history 
-- particularly from a user's point of view. These 
informal papers provide a capsule history of the eariy 
struggles of the APL community to share information, to 
get organized, and to provide a formalized forum for 
APL. 

Foster's paper, "Тһе APL User Community -- Its 
Roots" (APL Users Meeting Proceedings, Toronto, October 
6, 7, 8, 1980 Sponsored by І.Р. Sharp Associates 
Limited) documents in considerable detail how 
SHAREXAPL\360 evolved into APL Quote-Quad as well as 
the events that were taking place at the time. Not 
included, however, are some behind-the-scenes anecdotes 
which deserve attention in order to understand what it 
took to produce the first 14 newsletters. For example, 
it is probably not widely known that an anonymous 
benefactor donated $100 in response to the editor's 
plea for “interest, support and contributions” in the 
very first issue! 

The sheer mechanics of printing and distributing a 
newsletter containing terminal output generated on 
devices in considerable need of adjustment presented a 
tremendous challenge to Foster and subsequent editors, 
A.T. McEwan and D.W.A. Watson of Lakehead University, 
Thunder Bay, Ontario. Contributors frequently supplied 
material in a form which could not be reproduced even 
in the loose format of the newsletter. Retyping these 
contributions often introduced errors which managed to 
get into print. And, there were problems, too, with 
reproducing APL expressions and functions: the light 
italic APL font would consistently break up during the 
multilith process used to print the newsletters. 

The general! production scheme observed in those 
early years involved the editors reviewing 
contributions, writing editorials and producing 
camera-ready copy. The newsletters were printed by 
staff in the Engineering Department at Syracuse 
University. The early mailing list was maintained on an 
APL system, and address labels were printed out on 
terminals with pinfeed platens. Work-study students at 
Syracuse helped to assemble the newsletters while Garth 
Foster and his family pasted the labels on each copy by 
hand. 

As with any volunteer effort, certain details of 
bookkeeping managed to fall through the cracks. Foster 
remembers that batches of letters requesting 
newsletters, address changes and other information 
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disappeared by dint of turnovers in secretarial help 
and just plain oversight. Tracking down and correcting 
errors of omission was frustrating and time-consuming. 

The survival of the original publishing effort owes 
a lot to the dogged efforts of the first editors. It 
took considerable dedication to APL for Foster, McEwan 
and Watson to continue publishing with few resources 
and consequent "production disasters.” Nowadays, Garth 
is willing to reveal the chagrin he felt when meeting 
the president of І.Р. Sharp Associates Ltd. for the 
first time. It seems that lan Sharp seized the occasion 
to casually mention that his name was not spelled with 
an "e" on the end of it, a practice which APL 
Quote-Quad had been faithfully observing for a number 
of issues. 

In addition to the usual problems involved in 
publishing any periodical, the editors of the early 
newsletters also endured the agonies of editorial 
decisions and the frustrations connected with trying to 
provide truly informative content for a community 
starved for information. This is revealed in a comment 
іп the editorial in Volume 111, Number 1, June 11, 
1971, "Surely Larry Breed is not the only person 
prepared to reply to queries on АРІ?" 

However, all was not grim in those early years, and 
one gets an insight into the sense of humor which still 
abounds in the APL world. The Great Inner Products 
Contest was announced in the January 15, 1971 issue. 
Readers were encouraged to submit their "favorite and 
most expressive use of the inner product.” Among the 
so-called rules of the competition: 


The entry +.x is not permitted except by management 
and APL salesmen. 


Explaining x.+ places you in a special category. 


Volume il, Number 6, March 17, 1971 reveals that 
the APL community could meet the challenge with 
characteristic tongue-in-cheek: 


The most interesting [entry] comes from Roger 

Moore, І.Р. Sharp Associates, Toronto, who points 
out that the "new improved" 5732-XM6 or 5736-XM6 
executing PB^.-NB«500 1р1 in a CLEAR WS produces a 
register dump and a SYSTEM ERROR. He suggests that 
a call to the QUEND macro be inserted immediately 
after card 5272 of APLSVDOP in order to "destroy" 
his interesting inner product entry. His Post 

Script that another call to the QUEND macro after 
card 3712 in the same assembly fixes the bug 
encountered when something like ^/125000 1р1 is 
attempted. (Way to go IBM!) 


Not all was fun and games, however. Mike Jenkins 
introduced the new matrix inversion primitive, domino, 
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to the APL community in Volume !ll, Number 4, February 
10, 1972. This landmark paper is often referred to, and 
can still be used today to gain insight into this 

function. And domino can be used in interesting and 
mysterious ways, too. At the APL83 meeting in 
Heidelberg, Timo Seppala of TMT-Team Oy, Helsinki, was 
asking people if they knew the shortest expression for 
computing the average of a vector. (Think about it and 
then look for the answer at the end of this 
introduction.) 

It's a testimony to his early belief in the "power" 
of APL that Garth Foster still gets queries about APL 
Quote-Quad though he has not been officially involved 
with its production since 1972. 

APL PRESS takes pleasure in reprinting these first 
14 newsletters which provided a valuable service to the 
APL community. We must remember that these volunteer 
efforts offered the only means of written communication 
for APL users in the "old days.” In addition, these 
informal papers continue to contribute something even 
more worthwhile to APL as it exists today: they contain 
the only written summaries of the early APL conferences 
and workshops which took place in the days before 
proceedings were published as a matter of course. 

APL PRESS is grateful to G.H. Foster, A.T. McEwan 
and D.W.A. Watson for permission to reprint these 
issues. We also thank Larry Breed (IBM), Garth Foster 
and Gene McDonneil (1.P. Sharp Associates, Inc.) for 
making their personal collections available for 
reproduction. 


Arlene E. Azzarello 


November 1982 
Palo Alto 


The shortest expression for computing the average of a 
vector V is VEV=V. (!) 
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This is the first issue of the SHARE * APL\360 NEWSLETTER. The idea of 
such a publication was conceived at SHARE XXXII in Los Angeles at a meeting 


of the Interactive Systems Project's APL Committee. While there are a number 
of objectives of a publication such as this which may come to mind, it is hoped 
that the NEWSLETTER will serve at a minimum to knit the APL user community more 
closely together as well as to provide a forum for APL activities within SHARE, 
Your Editor has attempted to capture the essence of this goal in the SHARE * 
APL\360 portion of the name. 

For now, the NEWSLETTER is being distributed on an individual basis rather 
than on the basis of an installation distribution. This is being done to reach 
a larger community of users as opposed to reaching the people who administer to 
the machines, The other motivating factor is that APL is different! We will 
continue in this fashion until the size of circulation or other problems of 
production force us into some other mode. 

You will note that you are being asked to reply to the enclosed question- 
naire because the route that this issue is taking to reach an individual is, in 
many cases, circuitous. 

We are also initially publishing on a schedule which is aperiodic, but it 
is hoped that such a condition will be transient and will quickly fade eway 
leaving a schedule allowing issues to come out more frequently than quarterly. 
- How much more frequently depends upon you, the readership. 

The present format of the NEWSLETTER can only be described, at best, 
as free form. This issue contains, in addition to the survey mentioned above, 
a bibliography of APL related literature and other resources. The desire of 
having such a bibliography was expressed at SHARE XXXII and so I have listed 
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not only current items and their order numbers wherever known, but also I 

have included a number of publications which tend to give some perspective 

to the growth of APL. If anyone can offer additional references, I will be 
pleased to incluđe them in a future listing in addition to correcting any errors 
or inaccuracies which may exist in this bibliography, the responsibility for 
which rests solely with your Editor. 

The APL Committee was created at SHARE XXXII along with Interactive Systems 
Project (initially called the Conversational Systems Project) and it is presently 
chaired by Karl E. Korn of Industrial Computer Systems, Inc. of One East 42nd St., 
New York, N.Y. 10017. Parties interested in working on the Committee may apply 
directly to Karl or you may so indicate to me in your reply to the survey and I 
will pass the information along to him. 

Although I received some offers of help on the NEWSLETTER, I have not yet 
called upon those individuals offering their services in the hope that the reader- 
ship of this mailing will give a more complete picture of what is wanted in this 
publication. I anticipate that those having an interest in such areas and so 
indicating on the survey will be given ample opportunity to participate. 

This is to be a publication to serve APL and its users so let us know 


what you think and want. Your interest, support and contributions are solicited. 


Garth H. Foster 
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APL\360 USER'S CONFERENCE 


Mr. James A Higgins, Academic Manager of the Computing and Data Processing 
Center, State University of New York at Binghamton has indicated that plans are 
now in formation to hold an APZ User's Conference at Binghamton on Friday and 
Seturday, July 11-12, 1969. 


The conference will be aimed primarily at the university environment and will 
consist of two days of seminar discussions and demonstrations of APL in academia. 
Tentative topic areas include: University Applications of APL, CAI in APL, 
Education in the APL Language, Computer Center Operation Considerations, and The 
Future of APL. 


All parties interested in participation or attendance are urged to contact 

Mr. Higgins so as to receive additional information as it becomes available. 
His adäress is: 

J. A. Higgins, Academic Manager 

Computing and Data Processing Center 

S.U.N.Y. at Binghamton 

Binghamton, New York 13901 

Telephone: (607) 798-911 


The NEWSLETTER will print additional information as it becomes available as 
well as provide coverage of the conference. 
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a THE DATE USING ZELLER'S CONGRUENCE 
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a V.J. JONES, SYRACUSE UNIVERSITY 
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NAME: TELEPHONE: (____) 


(HOME/BUSINESS) 


ADDRESS: 


(ZIP/COUNTRY) 


PLEASE CHECK THR APPROPRIATE CATEGORIES AND PROVIDE TYE REQUESTED 
INFORMATION 


П WE DQ NOT HAVE APL RUNNING ON A REGULAR RASIS AT OUR 
INSTALLATION, WE ACCESS THE COMPUTER AT: 


П WE PUT APL UP ON AN OCCASIONAL BASIS POR EXPERIMENTAL 
PURPOSES, OTHER INTERACTIVE SYSTEMS OF INTERKST AT TRIS 
LOCATION ARE: 


a 


WE (WILL) HAVE APL AVAILABLE ON A REGULAR RASIS. THE DATE 
OP INITIAL SERVICE WAS (WILL BE): 


MACHINE (MODEL/CORE SIZE): 


NUMBER OF PORTS: „HARDWIRED: 


APPROXIMATE NUMBER OF USERS: _________ . TRE MACHINE TS П 


IS NOT П DEDICATED TO APL. 


O Т AM WILLING TO HELP THE APL CAPACITY OF 


О І АМ WILLING TO LEND A HAND WITH THE NEWSLETTER RY __ 


D WE HAVE FUNCTIONS/WORKSPACES WHICH WE WOULD BE WILLING TO YAKE 
AVAILABLE TO OTHER USERS. THE APPLICATIONS ARE: 


20/ SHARE*APL\360 NEWSLETTER 


О WE WOULD LIKE TO OBTAIN FUNCTIONS/WORKSPACES IN THE FOLLOWING 
APPLICATION AREAS: 


П OTHER PERSONS AT MY (OTHER) LOCATION(S) WHO SHOULD RECEIVE THE 
NEWSLETTER ARE: 


D WE WOULD BE WILLING TO HAVE OUR INSTALLATION LISTED IN A DIRECTORY 
OF APL LOCATIONS. 
О COMMENTS: 


DR. G. H. FOSTER 
113 HINDS HALL 
SYRACUSE UNIVERSITY 
SYRACUSE, N.Y., 13210, USA 
ATTN: SHARE*APL\360 
NEWSLETTER 
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At lest we are back with our second newsletter; we had hoped to have published 


it in June but my vacation and the desire to delay and include some kind of a report 
on the APL activities at the GUIDE (and SHARE Systems Divisicn) meeting held in Miami 
in the first week in June caused the delay. That report is provided on page Š by 
the APL Task Force's Chairman, Karl E. Korn. Requests to be added to the membership 
list of the task force, including your СЛАВУ installation code, should be sent to Karl 
at: APL ~ Manhattan, 254-6 West 3lst St., New York, N.Y. 1000:. 

The replies to the questionnaires have been coming ín and we are starting to build 
up a picture of APL users and installations; this information will be tabulated and 
published at a later date. Another questionnaire is included in this issue. If you 
have not completed one, please do so. If you have submitted a completed questionnaire, 
you need not do anything unless the information which was sent in needs to be updated. 

Also, we are seeking contributions for future issues. Submissions need not be 
really polished, only typed double-spaced on 8-1/2 x ll bond. А11 sources will be 
indicated except for editorial items The material published does not in any way 
reflect the opinions, philosophy, or policies of tne employers of any contributor or 
any company or organization, including the editor's, unless set forth as such. The 
Submitted and published material rather represents the thoughts, opinions and philosophy 
of the contributors or the editor. 

The publishers, Task Force members, or Officers of SHAR: are not responsible for 
not making any warranties or representations concerning the quality or accuracy of tne 
material published herein; readers and/or users are expected to make their own evalu- 
ations as to usefulness of the material in their own environment. 

However, do not let the above disclaimers prevent you from keeping those cards, 
letters, programs and other contributions coming in. 

In this issue, beginning on page 3 we have some contributions by Jack R. Becker, 
an Applications Representative of APL Computing Services, a Division of tne Marquardt 
Company. То my knowledge APL Computing Services was the first commerical venture to 


offer APL. They began operations in December, 1968, in Southern California and from 


26/ SHARE*APL\360 NEWSLETTER 
[2] 


the information provided me they have a 512K 360/50 with 30 dial up ports, which 
they intend to expand to 100 as required. They have a variety of customers, many 

of whom have more than one account number, and APL is available from 8 A.M. to 6 P.M. 
with DOS batch running in the background. The hours are dictated by the running of 
almost two full shifts of OS work in addition. 

Jack has provided us with a short write-up of the APL Computing Services approach 
to documentation. Perhaps some reader would like to offer alternate approaches or 
suggestions for improvement. Next he has provided the documentation and program for 
the solution of a general cubic equation, and the documentation of a plane frame stress 
analysis program. The latter is a large program requiring an entire workspace, and he 
indicates that they would dump it for anyone sending a tape! His address is: 

Jack R. Becker, APL Computing Services, 16555 Saticoy St., Van Nuys, Calif. 91406. 

It is hoped that there is a place for the exchange of APL functions/workspaces 
among 811 installations whether they are found in an educational, commercial, or 
internal corporate environment. We further hope that the newsletter will be able to 
assist in such an exchange, but such a scheme only works when you, the readers, work 
at it! 

I hope to see many of you at the APL Conference in Binghamton on the llth and 12th 


and we shall try to have something on that conference in the next issue. 


Garth H. Foster 
Editor 
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MINUTES OF APL\360 TASK FORCE MEETi3C 
SHARE Interactive Systems Project 
Systems Division, Miami, June 2,'69 


As & part of the SHARE Interactive Systens Project meetings, the APL Task Force 
met on June 2, 1969 during GUIDE 28. 


It was announced that Mr. Alan Rose, APL Administrator (White Plains) had been 
appointed as SHARE IBM representative to the APL Task Force. (Mr. Dave Schuman 
served as interim IBM representative for the meeting.) It was also announced that Mr. 
Jerry Arnold (IBM) would make the APL Command-language presentation at the joint Inter- 
active Systems Command-language Sessions to be held on June 3. 


The program plan for SHARE XXXII (Statler Hilton in Boston, August 17 thru 22) 
was discussed. The committee agreed to have Mr. Alan Rose present a two-session tutorial 
on the APL 360 Terminal System. Thursday August 21 A & B were selected as preferred 
time slots. The APL Task Force will also hold two closed committee sessions on Tuesday 
(A & B). An attempt vill be made to have Aden Falkoff (IBM T.J. Watson Research Center) 
present an invited paper on Guidelines for Extending APL (or a similar topic of his 
selection), during these closed sessions. It was decided to hold an open session on User 
Experience with APL. (At a later meeting a time slot of Thursday C, following the tutorial 
Sessions, was selected as a preferred time.) 


The date of the SUNY APL Users Conference at Binghamton, N.Y. was announced, 
July 11 & 12. 


À representative from the Yale Computer Center, Jane Tiedemenn, requested that 
the APL source code be made available in machinable form for the addition of APL into 
Yale's CYTOS terminal system. 


A short discussion was held on the problem of distribution mechanics for terminal- 
system contributed programs, as compared with present PID distribution mechanics. The 
problem is common to all Interactive Systems Project task forces, and will be considered 
at the Project level. The question of availability of "The APL\360 System" booklet from 
IBM was also raised, 


Technical discussions were held on possible additions to the APL Terminal System 
to aid commercial users. These included: 1) addition of a de-quote keyboard function to 
permit system commands under program control, and 2) continuation of computation after 
loading a new workspace under program control. From the viewpoint of а commercial user, 
this makes loading а 32,000 character workspace somewhat equivalent to reading 8 "block" 
of records from tape, with the added versatility of including "program" in the block &s 
well as data. The problem of maintaining information (such as totals) from workspace to 
workspace was raised. It appeared that use of the copy commands (as well as "reverse- 
copy" commands, i.e., write) would therefore also be valusble. 


(signed) 
Karl Korn (ICS), Chairman 
APL Task Force 
SHARE Interactive Systems Project 
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DOCUMENTATION IN THE APL\360 SYSTEM 


APL\360 provides a unique opportunity to attack the problem of program docu- 
mentation. For the first time programs may conveniently have explanations 
stored adjacent to them. Still, heving program and documentation in close 
proximity is not in itself a solution to the problem. Proper documentation 
of prograns is a difficult and tedious task, requiring considerable thought 
and effort. 


At Marquardt we have found the most effective documentation to be that which is 
systematic, thorough, and, as much as possible, consistent in format. All the 
following items should be included: 


l. Short program title. 

2. Program syntax. 

3. Detailed description of what the program accomplishes. 
b. Definition of all input and output variables. 


A consistent format seems to be the key to success for, though restrictive on 

the programmer, it requires less effort on the part of the user. He is in essence 
allowed to walk familiar ground while extracting new material. When this type of 
information is provided with a program, there is seldom an instance when even a 
beginning APL'er requires additional assistance to use it. 


This is fine as long as the user knows where to look for the program he wants to 
execute. However, with the way our public libraries have been growing in size 
and number, finding a specific function could be a lengthy procedure. We have 
attacked the problem in the following way. 


Each library has a CATALOG workspace containing information on the functions 
stored in that library. The user may request a list of all functions in the 
library, or Just those in a specific workspace. The list includes the library 
number and workspace name for each function, as well as a brief description and 
the name of and associated 'HOW' function or variable. 


In addition a workspace named LOCATE is stored in LIB 1. This Workspace contains 
a current list of all public library numbers and a FIND function which gives the 
user the library number and workspace name of any cataloged function. 


These workspaces have proved themselves quite valusble in helping our customers 
make the maximum use of the APL public libraries. 


J&ck Becker 
APL COMPUTING SERVICES DIV. 
THE MARQUARDT COMPANY 
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APL QUESTIONNAIRE 


NAME: en ея TELEPHONE: ў д... 
(НОМЕ / BUSINESS) 
ADDRESS: _________ ROTEN 
М ^ 


PLEASE CHECK THE APPROPRIATE CATEGORIES AND PROVIDE THE REQUESTED INFORMATION 


О WE DQ NOT HAVE APL RUNNING ON A REGULAR BASIS AT OUR INSTALLATION. 
WE ACCESS THE COMPUTER AT: 


THE PERSON TO CONTACT THERE IS: 


Q WE PUT APL UP ON AN OCCASIONAL BASIS FOR EXPEHIMENTAL PURPOSES. OTHER 
INTERACTIVE SYSTEMS OF INTEREST AT THIS LOCATION ARE: 


П WE (WILL) HAVE APL AVAILABLE ON A REGULAR BASIS. THE DATE OF INITIAL SERVICE 
WAS (WILL BE): 


MACHINE (MODEL/CORE SIZE): 


NUMBER OF PORTS: HARDWIRED: ____ шэ DIAL-UP: ___ 


APPROXIMATE NUMBER OF USERS: __ + THE MACHINE IS D ,IS NOT O 


DEDICATED ТО APL. Ороз Dos 


O I WOULD LIKE TO BE A MEMBER OF THE APL TASK FORCE. 
OUR SHARE INSTALLATION CODE IS ____ . 


O І АМ WILLING TO LEND A HAND WITH THE NEWSLETTER BY 00000 


D WE HAVE FUNCTIONS/WORKSPACES WHICH WE WOULD BE WILLING TO MAKE AVAILABLE TO 
OTHER USERS. THE APPLICATIONS ARE: 
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Q WE WOULD LIKE TO OBTAIN FUNCTIONS/WORKSPACES IN THE FOLLOWING APPLICATION 
AREAS: 


О OTHER PERSONS AT MY (OTHER) LOCATION(S) WHO SHOULD RECEIVE THE NEWSLETTER ARE: 


О WE WOULD BE WILLING TO HAVE OUR INSTALLATION LISTED IN A DIRECTORY OF APL LOCATIONS. 
D COMMENTS: 


DR. G. H. FOSTER 

113 HINDS HALL 

SYRACUSE UNIVERSITY 
SYRACUSE, N.Y., 13210, USA 


ATIN: SHARE*APL\360 
NEWSLETTER 
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a THE FOLLOWING PROGRAM USES THE OUTER PRODUCT ТО GENERATE 3] 


^ А CHESS BOARD WITH HALF-INCH SQUARES: 


VCHESSBDLO]V 
Я B+CRESSBD 


[11 Bet /1(14(211(14426)43)4.5211(84142)851 


[2] В[1;]+8[26; ]+BL;1]+BL;42]+'«* 
1) 


a EXECUTION OF THE PROGRAM: 
CHESSBD 


ЫЛА ERE TERRE кая ТТТТТТТТТТТІТІТТІ 
* ///// 77777 ///// /////* 
* ///// ///// ///// /////* 
* ///// 124114 11111! /////* 
*///// ///// 11111 77777 * 
*///// ///// ///// 77777 * 
*///// 17/7// Hn 7/1/7 * 
* ///// 77777 77777 7777)» 
ж 77777 77777 77777 ///7/» 
» ///// ///// 11111 /////* 
*///// 77777 77717 ///// * 
*///// ///// ///// 77777 ж 
*///// ///// ШТ ///// * 
* ///// 71777 77777 77///» 
* RRRA 77777 ///// /////* 
* ///// 124144 ///// /////+* 
*///// ///// ///// ///// * 
*///// LITE 77777 77777 * 
*///// 121444 17777 777177 * 
* ///// 7/777 77777 /////* 
* ///// 77777 77777 7777ж 
* (41244 77/77 7/7” /////* 
*///// ///// ///// ///// * 
*///// ///// АДАА 77777 * 
*///// 141244 ///// 77777 * 


RTT RR RRR EERE KR 


THE PROGRAM USES UP 212 BYTES OF WORKSPACE WHILE THE OUTPUT 
ARRAY OCCUPIES 1112 BYTES. THUS THE PROGRAM CAN BE REGARDED 
AS A SPACE-SAVING ENCODING OF ITS CONSTANT OUTPUT, OF COURSE, 
EDITING THE PROGRAM'S CONSTANTS OR INTRODUCING PARAMETERS 
WOULD ENABLE PRODUCTION OF ANY SIZE BOARD. 
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CLOSING COMMENTS - 
1. Don't forget the APL Users Conference at Binghamton, July 11-12. 
2. All parties interested in participating in a Workshop on APL to be held this fall, 
contact Garth Foster (address below) - attendance is limited. 
3. All programs and program write-ups submitted to the Newsletter should be on CLEAN, 
WHITE BOND and printing should be as crisp as possible. 
Dr. Garth H. Foster 
Electrical Engineering Dept. 
113 Hinds Hali 


Syracuse University 
Syracuse, N. Y. 13210 


3EAVAVAVAVAVAVAVAVAVAVATAVAVAVAVAVAVATV ATATATAFTAVATATATATAVATAVATAVATA 
TAVAVAVAVAVATAVAVAVAVAVAT ACAVAVAVAVAVAVAVAUTAVATAT QASAVAS 


A9 u^ 


аратара фае 


УУАТАЛАЛАТАТАЧАТАУАТАТАТАТАТАЛАТАТАТАТАТАТАТАЛАТАФАЛДЛАЛАТ ТЛ9УАбАР 73145072 
ЧАЛАФАЧАТАТАТАТАУАТАТАФАТАУАТАТДТАТАТАЛАТАТАТАТАЛАФАТАРАТАЛАТАТАУЛТАЛАЛАЭ27 


GART! ЯН. POSTER 

113 HINDS "ALL 

SYRACUSE UNIVFRSITY 
SYRACUSE, N.Y., 13210, USA 
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Ree ke NN 


Number 3 Octover, 1969 


e LINES BY THE EDITOR 
a The APL Newsletter returns. Later than anticipated, yes; but here all the same. 


A The delay was primarily caused by your editor running an APL workshop. Since 

no minutes were kept and the sessions were not recorded, no proceedings will be issued, 
so please do not request any. The theme of that workshop and some relevant comments on 
SHARE XXXIII may be found on p.h. 


в For some interesting functions, including an improved version of a previously 
published l-liner, see p.2. 


a One topic which was raised at Binghamton was the issue of exchange of functions, 
documentation and confidence in what is being exchanged. Page 7 is a short write-up 

of the confidence codes which are being added to the functions in various Public Libraries 
in the Syracuse University APL System. Your comments are solicited. Jim Feeney is S.U.'s 
System Librarian. 


a Page 3 gives a brief overview of the APL activity in the Atlanta Public School System 


A Page 5 is a write-up of a function sent to me by John R. Clark of Orange Coast 
College, Costa Mesa, Calif. If you get a chance to see their movie on Computer Aided 
Learning, don't miss it. Itisa swinging production. Also, note that their system, 
CAL/APL (Computer Aided Learning/APL), is described in the Author's Manual; it allows 
computer aided learning sequences to be tied to the APL Terminal System. 


A On p.6 we have ?REMARKS in the course of which we have a few things to say about 
the present state of APL and along with it this newsletter. Your full attention to 
these remarks is requested. The APL times they are a changin' and we must change too. 
To accomplish this requires your help, 
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121 
VTROOTSLOIV 

У TROOTS H 

110" REAL IMAGINARY ';QR+Rx(|Re 2 1 °.002:Nt10)> 

18713 

v 
TROOTS 4 

REAL IMAGINARY 
9 9 

11 0 

0 ze 

1 0 


m SUBMITTED BY MARY YEATON 


ñ IBM CORP. 
ñ OAKLAND, CALIFORNIA 
VFLOATLD]V 


Ч ReFLOAT H;E 
[1]  Re((161 1*'0123556789ABCDEF' 1H)x16* (E- 128xE2128) -64+ pHe 
2+Н)х A*(Ec1617 141012345678 9ABCDEF" VE«21H)2128 
2 
FLOAT 88110! 
1 
FLOAT "421° 
16 
FLOAT 'ABCDE12345' 
74.157702269Е 26 
FLOAT '031' 
2.21085915Е 75 


a SUBMITTED BY MARY YEATON A DAN F. JANDA, JR. 


A IBM CORP. 
A OAKLAND, CALIFORNIA 
VSHORTLISTLUJV 
VSHORTLIST;A 


[1] 0+4, (1814), (60144) , (1874), (2р 1*4), 4[18], 5t A" V SHORTLIST;A 
[1] OA, (1854), (6154), (1814), (2р 1+4), АС181,5+4+''' 
v 


SHORTLIST 
У SHORTLIST;A 

[1] (ea, (18+A),(6p1+A),(18+A),(2p71+A),AL18],5tA+' Ч SHORTLIST;A 
C1] Dea, (1844), (60154), (1814), (2p 154), 4[18], 544! '' 
v 


а SUBMITTED BY SETH BREIDBART 
a 132 MADISON RD. 
A SCARSDALE, NY. 10583 
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APL IN THE ATLANTA PUBLIC SCHOOLS 


The 1969-70 school year in Atlanta will see the installation of fourteen terminals in 
fourteen high schools. To ensure that adequate faculty is available to offer instructions 
in APL some sixty teachers attended summer computer orientation classes this past 
summer. 

These classes consisted of computer history, concepts, languages, applications and 
APL, Each teacher was required to write programs and each had "hands-on" experience 
on the terminal. At the session end each teacher had accquired a degree of proficiency 
that would allow them to feel secure in their school environment tcaching APL. 

Six high schools offered APL during the 1968-69 school year. The addition of eight 
Schools this fall will give us terminals in half of our secondary schools. Expansion to 
the other schools is a function of money for terminals rather than computer capability. 

Students use APL in a problem solving manner. A problem is defined, in some class- 
room situations, the student flowcharts and writes the program. Terminal time is secured 
and the program entered into the computer. Each Uscr has the ability to store information 
in their own private library for later referral or usc. 

Both the student and faculty reaction to APL can be described as very enthusiastic and 


bordering on fanaticism. 


>y 
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DH APL Vorkshop 


Syracuse University's Electrical Engineering Department and its Systems and 
Information Scivr:ce Program hosted an APL Workshop on September 25-27, at S.U.'s 
Minnowbrook Conference Center at Blue Mountain Lake iL: t^e Adirondack Mountains. 
Since attendance was by invitation and the number of attendees was limited, I feel 
shat І owe the readership a general explanation of viet І had hoped the gathering 
would accomplish. 


There are now a number o^ implementation efforts well urder way or in planning 
Stages. The workshop was, to my knowledge, the first gathering together of those persons 
implementing APL to provide a status report and to discuss with the original IBM team a 
number of issues which relate to the availability of APL on a variety of machines. 


Some of the trends of discussions such as were held are reflected in ?REMARKS on 


р.6, 


Хо minutes of the meeting were taken but I would like to report that the status of 
each of the Sigma 7 implementations at Montana State University, Bozeman, Montana and at 
the Defence Research Establishment Valcartier, Quebec City, Canada; the University of 
Massachusetts, Amherst, Mass., effort оп the CDC 3600; and the York University, Toronto, 
Canada implementation on the 360/50 (05/МЕТ11) was reported by a system programmer from 
the orcanizztions listed. 


Not attending the workshop was the team from the Université de Toulouse, Toulouse, 
France which has implemented АРІ on the C.A.F. 510 and who will begin coding a Sigma T 
version in December, + appears that the implementetions reported will be compatible 
from a users point of view at the language level with the original released APL. Also 
in attendance at the workshop were representatives from RCA and DS. 


Lively and sometimes heated discussiors were held on a number of facets of the 
language/system including: character sets, codes for exchange of functions between systems, 
how large files should look and work, and the execute or unquote operator, as well as 
numerous other topics. 

It is believed by your EDIT that the participants felt that the discussions were 
useful, and that the size of the group (34) was small enough to allow a great deal of 
freedom in the structure of the meeting ard large enough to accomplish something (hopefully). 
This constraint meant that open invitations could not have been extended and implied that 
some people who could kave contributed a great deal were missed. For that I apologize 
and accept all criticism. The meeting was not meant to slight the User (the Binghamton 
Conference was directed at the needs of that group) but rather to address some of tne 
problems of the Implementers. 


As APL grows in acceptance the structure and type of meetings held (if any) related 
to the language must also change. Comments anyone? 
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ts] 
CROUTHOW 
CROUT SOLVES SYSTEMS OF LINEAR EQUATIONS USING CROUT REDUCTION 
METHOD AS SHOWN IN HILDEBRAND - INTRODUCTION TO NUMERICAL ANALYSIS 
MCGRAW-HILL C 1956 P 429 FF. 


CALL А CROUT3 С 
А 15 AN N BY N MATRIX OF COEFFICIENTS C IS A VECTOR OF CONSTANTS 


THE PROGRAM RETURNS THE VALUES X[1] TO XUN] 


10123 
DeX+A CROUT3 C 

70.9616285129 0.2703477747 1.432984814 ~1.377036042 0.8937968165 
At xX 

“1 77.1054273588715 1 2 3 


ҮСВЕОУТЗЇ 119 

У Х+4 CROUTS С 
[1J эЕвх1((0%-/рА)у(2ғррА)у((Ве1%рд)ғр,С)),0р14%2%1е0 
[2] А11:164(1:11,19А11:18411:11:142417 
[3]  *(126)xvR2I-I*1,004L Z4 JeALI 4 J- ALI 31-7119 xA 47-1471 
[4] —((ALI;I]=0),7>R)/ER,ER+xJ+1+I<IJ 
[5] +(126)xRede+1, OpAL Tso e ALE 43- ACE 11-13. xAD I 1542) 44257] 
[6] +3+0xI<7<IJ<IJ+1 
t7] аа ы 27 p'SYSTEM МОТ PROPERLY DEFINEDMATRIX IS SINGULAR 

іх]; 

[8] Y[4]+C[1]+AC1;1l;X<Y<RpO0;I+*J<2;ABHD<A 
[9] +(x26) xi А>Г+1+1 ‚Ор 1] =(С[1]-741-1)+.х,АСТ;11-11)+АСТ:Г] 
[10] XLRJ)+YLR];I+7<R-1 
(111 —(r26)xu0<I+<I-1,0pX[I]<Y[IJ-(I+,AUI;]J)+.xI+X 
(121 я PROGRAMMED BY RONALD MILLER ORANGE COAST COLLEGE 
[13] я COMPUTER SCIENCE 7 SPRING 1969 

v 
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161 ?REMARKS 
9 This is the last issue of this Newsletter which will be called the SHARE ж APL\360 
NEWSLETTER. It has become evident from the number of people who write to me asking to 
be put on the mailing list that SHARE and 360 are beginning to be drawbacks to having a 
true community of APL users. At first it was only the 1230 and 1500 system users but 
more and more I am hearing from people who work for XDS, Honeywell, RCA and the like. 
They too have been bitten by the bug and want to be kept informed с” APL developments. 


° Thus, I propose that we change the name to something more appropriate to reflect 
the entire APL community (whatever that is). If you have any good names or ideas for 
a logo, drop ше a line, that is: EDITOR+U] The best that І can think of is APL: NEWS. 


° This is not to say that SHARE is not important to APL; we will continue to work 
within that organization. Rather the base of operations must be broadened. This became 
evident uhen I received a letter asking if I couldn't send the party the newsletter since 
I was the head of SHARE! 


° The possibility of sending the rewsletter to ACM's SIGPLAN for inclusion as part of 
SIGPLAN NOTICES should be investigated. That would solve the distribution problems (see 
below) but the added cost to the individual woulä probably kill the idea. A side advantage 
would be that others would see APL and might become smitten by it just as most of us have. 


о However, if we are to send anything іп to SIGPLAN for additional coverage we need 
more quality and substance than is present currentiy. Come to think of it that wouldn't 
hurt anyway. 


° Articles and some good, solic thinking to back them up are solicited on the following: 


1) A Source Code (сага & tape) for APL. Functions and workspaces should be exchanged 
in that fashion between machines of different vendors rather than in the present 
workspace dumping and selective restore which is suitable only to the 360. 


2) How should large files be made to look to the user so tnat their handling and use 
is consistent with the APL philosophy? 


9 This newsietter and ¿PL itself need more people who are willing to contribute rather 
than just use or read and \ sit andwait new developments. When, for example, are we 
going to begin to publish in APZ (and get it published in something other than the IBM 
System Journal) communications of value to the computing community? After all, that's 


why Ken Iverson created APL in the first place; such unication of algorit doesn't 
require the terminal system. 
° The Computer Decisions article by Jeff Bairstow has resulted ir a number of peopie 


writing me to obtain membersnip in the APL User's Group. (I didn't think we had спе in а 
structured form.) Maybe we ought to get things going. What do you think? 


° How can we support and better dissribute this newsletter? Things are getting out of 


hand for your EDITOR. I neither want nor can I accept this thing as a fuil time job, but 
things seem to be moving that way. І need your heip. Any and ali suggestions are welcome. 


G.H.F. 
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{71 
CODES 


CONFIDENCE CODES 
10/14/69 
JAMES FEENEY, SYR UNV COMPUTER CENTER, X3995 


THE FUNCTION CONFIDENCE CODES ARE A METHOD OF RATING A 
PUNCTION AS TO THE LEVEL OF CONFIDENCE A USER MAY HAVE WHEN 
EXECUTING IT. ANY FUNCTION PLACED IN A PUBLIC LIBRARY SHOULD BE 
EXECUTABLE WITHOUT ERROR, HOWEVER PROBLEMS MIGHT ARISE IF THE 
FUNCTION IS USED IN A MANNER NOT EXACTLY THE SAME AS THAT 
INTENDED BY ITS AUTHOR. FOLLOWING ARE THE THREE CONFIDENCE CODES 
AND THEIR MEANINGS: 


> 
m 


HEAVY USAGE 8Y PEOPLE OTHER THAN THE AUTHOR 

2) AS MUCH AS POSSIELE HAS SAFEGUARDS AGAINST 
APL ERRORS SUCH AS DOMAIN ERROR 

3) HAS COMPLETE ERROR AND RECOVERY MESSAGES 

4) IS WELL DOCUMENTED 

5) FUNCTION IS AS EFFICIENT AS THE AUTHOR COULD 
COULD MAKE IT 

6) HAS PERSON RESPONSI2LE FOR ITS UPKEEP 


В 1) LIGHT USAGE ВУ OTHER THAN THE AUTHOR 
2) WELL DOCUMENTED FOR ITS INTENDED USE 
3) MAY NOT BE MOST EFFICIENTLY WRITTEN 
8) HAS PERSON RESPONSIDPLE FOR ITS UPKEEP 


TESTED ONLY 8Y THE AUTHOR FOR HIS PURPOSE 
D ONLY FOR AUTORS UTE OF IT 

AVE RESPONGIPLE PERSON 

4) MAY BE THERE FOR U: TO TEST AND COMMENT 
5) USE AT YOUR OWN RISE 


HOTE: THESE CODES HAVE NOT BEEN APPLIED TO ALL FUNCTIONS IN THE 
PUBLIC LIBRARIES, BUT THEY WILL BE REQUIRED OF ALL MAJOR 
FUNCTIONS PLACED IN THE PUBLIC LIBRARIES IN THE FUTURE. WHEREVER 
POSSIBLE THF FUNCTIONS ALREADY IN TUE PUBLIC LIBRARIES WILL BE 
ASSIGNED THESE CODES. 


APL QUOTE-QUAD 
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APL Й u 


Тһе APL Quote-Quad is an informal publication for January, 1970 
APL Users. Short articles, programming notes, signed 
opinion, announcements, and other material may be sub- 
mitted to the EDITOR at the address on the last page. 
All published opinion ia that of the CONTRIBUTOR 
and does not represent the opinions or policy of any 
company or organization. 


Well, dean gentle readers like General MacArthur we have returned. While we have 
gotten somewhat behind in schedule (?), we hope that the somewhat altered appearance 
of this publication has made the wait worth it. 


Frankly, we are in need of high quality material for publication on these pages. 
This is particularly true if we are to effectively communicate among ourselves and 
with others. 


Chris Shaw of the SYSTEM DEVELOPMENT CORPORATION who is EDITOR of ACM's Special 
Interest Group on Programming Languages has agreed to reprint material from these 
pages in SIGPLAN Notices. 


If you hear of any new implementation projects, manufacturers or vendors of TS 
service who are serious about APL but not currently offering it or known to be tuned 


in to our efforts please let me know or have them contact me to receive this publication. 


There have been various amounts of talk at various times during the past year 
about forming an APL Users Group. While there will continue to be activity within 
SHARE for the many with APL on IBM machines, we need a broader base than that. If we 
are going to get organized, lets hear some proposals; perhaps an organizing meeting 


could be a follow-up to the Binghamton meeting of last July. 


I would be pleased to correspond with all interested parties on this matter and 
further announcements and discussions will be carried in this publication. 


As a possible name for such an organization I suggest STAPLE standing for 
Society for Total APL Environments or Society Toward APL Exchange. The name was 
suggested to me by Jim McDonnell of O'BRIEN 6 GERE here іп Syracuse. The name how- 
ever is a small part of an organization and only a small part in getting started ot 


keeping going for that matter. 


(continued on [53) 
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A Comparison of the Structures of APL, FORTRAN, ALGOL and PL/I 
S. Charmonman 
Associate Professor of Computer Science 


University of Missouri-Columbia 


The highly structured feature of APL can be easily seen 
by comparing APL programs to programs for the same task written 
in other popular languages such as FORTRAN, ALGOL and PL/}. As 
an example we shall take the problems of computing the three 
norms of a vector A defined by 


МІ = Мах ja; | 


N2 = МЕН 


N3 = Ута! 


FORTRAN solution 
SUBROUTINE NORM (NI, N2, N3) 
COMMON A(1) 


REAL NI, N2, N3 


NI = 0 
№ = 0 
N3 = O 


ро 100 J = 1,N 


0 = ABS ( А(1) ) 


z 
" 


АМАХ1 (NI,D) 


= 
ю 
" 


N2 + D 
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100 N3=N3+DxD 
N3 = SORT (М3) 
RETURN 
END 
ALGOL solution 
procedure Norm (A) Order: (N) Result: (N1,N2,N3); 
value Nj; array A; integer N; 
real N1,N2,N3; 
begin integer 1; real 0; 
МІ = №2:= N3 = 0; 
for I: = 1 step I unti] N do 
begin D : = abs  (A[I]); 
М1: = if D» NI then D else КІ; 
N2 = № + 0; 
N3 № +D xD 
end 
N3 = 310.5; 
end Norm 
PL/I solution 
V NORM PROCEDURE (М,М1,М2,М3,А); 


DECLARE 
NI,N2,N3 = O; 
LOOP : DO I = І to N; 
D = ABS(A(1)); 
IF D > NI 


THEN NI 


(NI,N2,N3,A(*)) FLOAT; 
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N2 = N2 + D; 
N3 = N3 + D x D; 
END LOOP; 


N3 = N3 **.5; 


END V NORM; 


APL solution 


ç N + NOM А ; B 


111 № + (Г/В), (+/B), (+/B x B+ | A) ж .5 V 


Obviously FORTRAN is the least structured of them all. 
Each statement in FORTRAN requires a separate line as seen in 
the Initialization of М1,М2 and N3 which unnecessarily take up 
three línes. In ALGOL, a logical expression may be part of an 
arithmetic expression which is part of an "assignment statement," 
which is part of a "compound statement," which is part of "for 
statement," which is part of a block, which is part of a 
program. PL/I is supposed to have the good features of FORTRAN 
and ALGOL and also the default options as opposed to ALGOL 
explicit declarations of all variables. The present version 
of APL\360 requires no more than one function per line, but 
an argument of an APL function may be a function which has 
another function as its argument, and so on. Therefore, APL 


is at least as highly structured as ALGOL and PL/I. 
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SYRACUSE UNIVERSITY EXPANDS APL SERVICE 


William J. Jones, Acting Director of the Syracuse University Computing Center 
announced in early December that Peter B. Olson, a senior at 5.0. and a part-time 
systems programmer at the Computing Center, has made several modifications to 
release 17 of 05/360 MFT-II over the past several months. The latest of these, 
implemented in December makes it possible to run the recent MVT release of 
APL\360 under MFT-It. 

Consequently, Syracuse University is now running on a 12 hour per day 
schedule, five days per week, concurrently with a batch partition of about 160K. 
The approximate division of the core is: APL, 200K (with 3 workspaces in core); 

05 nucleus, LAK; and a spool program (something like HASP ll), also developed by 
Mr. Olson, residing in roughly 75K of core. 

Inquiries should be directed to Mr. Jones at the Computing Center, Machinery 
Hall, Syracuse University, Syracuse, N.Y. 13210. 
Se a ах 
(continued from 111) 


I get letters ranging all the way from students who have become acquainted 
with APL and want some functions that play games so that they can finish a term 
project, to time sharing vendors who want functions for free so that they can 
make a profit, to people who are just hearing of APZ, to people who want lists 
of TS vendors, to the CIA, and so on. These requests are interesting and for the 
most part legitimate, but so far the only formal User Organization fielding these 
inquiries exists as a figment of imagination of the writers of magazine articles. 

I have only a small amount of time to devote to this Newsletter, let along handling 
all requests on an individual basis. As of now the best that I can do is to handle 


items pertaining to the Newsletter and work on the rest as time permits. 


If you want an organization, what is it to be, how is it to be set up and 


what is it worth to you? 
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The Generalized Hypergeometric Function 
Alan L. Jones 
IBM 
Endicott, N.Y. 
The generalized hypergeometric function is defined as 
a & viis 18. 
2 B 
prO P |z) = pr te, зь 52) 
bi b; š з Ва і і 
bd k 
Я y (a ) (ag), ve (a), 2 
5) (es (b 
к=0 lk 2k ак 
where 

` _ Цәжк) 

(a), =1, (a), = alatl) ... (atk-1) = Ta 

We can write this as 
a, ay ++ в, (а +1 Цаца) see (а +1)2 
Р= 1+ — (1 + (1+.... )).....) 

b, du ve by š bt bn ... E 2 


The APL function which computes N terms of the hypergeometric series and 
uses global variables A and B as the vectors which contain the parameters р 


M is given below. 


VHYPERGUD]V 


V Z< HYPERG Х,1 
[12 2-(фХх(х/111 4°.+1-1)+1хх/[1] 69.4 1+1ж1М)11 
9 


As an example consider that 


Nel 
o Fo (2) ze, 


so for APL: 
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deBeio 171 


WAS 10 


20 ЛҮРЕВС 1 
2.718281828459045 

*1 
2,718281828459045 


The Bessel function 2) сап be computed by setting A + 10 and 
B + ‚1 since 

Ж 11:88 

7,090 = oF, (Y - £ x°) 


Thus, we try 


9.9384698072408129 


———————————————————M— 


AL Rose of SCIENTIFIC TIME SHARING CORPORATION, vendors of APL service round and 
about, has begun his Marketing Newsletter which he circulates to customers and 
former colleagues in IBM. In addition to announcing that L. М. (Larry) Breed 
has left IBM to join STS to head up their Systems Development Division. Al 
announced the availability of his 43 page publication called: "A Guide to APL 
for the User of BASIC". While I have not seen it at this writing, you may want 
to spend $2 for it and give it to a friend who still has the BASIC syndrome. 
Also available are the documentation write-ups (at $1 each) on STS's STATPAK , 
MATHPAK, PLOTPAK, EDITPAK, FORMAT PAK, and FINANCEPAK. 


The address is: Scientific Time Sharing 
30 Holland Avenue 
White Plains, New York 
10603 
or 


2101 S Street К.м. 
Washington, D. C. 
20008 
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)CARD NODISP 


APL\1130 MISSING PRIMITIVES 


[1] 
[21 
[3] 
[5] 
[51 
[53 


[1] 


11 


11 


9 ReX DEAL Ү;7;4 
ВУ 
1+1 
JAY:de 1+1+21-Г-оВ 
ЯГІ,41«8Г4,71 
>(Х>71%1«1%1)/УАУ 


ReXoR 
v 
V RA LOG X 
R+(@X):®A 
9 


V R+A ТАКЕ B;SHIFT 
>(2=0SHIFT+(AtoR)xA<O)/MATRTX 
+0 ,pR+( RYE SRTFT41 14) 
MATRIX: 2+ACSHTFT{ 114 ТАГТ: ЗА ТРЛГ 2 1+1 [АГ 211] 


9 R+A DROP n;SBIP? 
+(2=p,SHTFT<(AxA>0))/MATRIX 
+0,0R+(,B)LSHTFT4+1(0,B)-|4] 
MATRIX: R+BLSHIPTLAl+ (oR )CAJ- IAL 3 35 SHIFTC2I+1 (р8)[21-1АГ23] 


9 RA PREFIX В 
В«ВзүА 


V R+A SUFFIX В 
R+bBzıA 


V ReGRADUP X 
ReXvioX 


V R*GRADWN X 
ReoXrir1pX 


V LAMP;X 
Xem 
1) 


FLOOR A CRIL CONTAIN THE ONLY KNOWN RUGS IN APLN1130; THE 


TWO 


£11 


[11 


FUNCTIONS SIMULATE THEM CORRECTLY: 
V R<CFIL X 
P<*X+1|-X 
ç 
V R*FLOOR X 
R<X-1| X 
V 


SUBMITTED BY JOHN E LAUER 


COLORADO COMPUTTNG CORPORATION 
BOX 38 
BOULDFR CO 80302 
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PAST FOURIER TRANSFORM 
Alan R. Jones 

IBM CORP. 

ENDICOTT, NY 


vFFT[DIV 


V Z+FFT X;B;G;ZZ;J;D;N;M;L;LL 
[1]  ZZ«ORIGIN L+0 
[22 I+ 1 Oxo LL+2*1M+2@N+ 1рХ 
Гэ? »(M>L+L+1)/2+ppJ+J,Np 0 1 ө.-(28к1)01 
[ul X<X[;($LL)+.xJ+(M,N)oJ,L+<0OJ 
[51 Be 2 1 e.00(1N) $5 14 LL 
[63 ХӨХ CVM) -LLEL]xJEL;31*C(oX)0(-/C0J. BC5D1xXEC;J,*/EC0] ВГ;р« 
їр11М-141,1х 32411 11х4101 XU ;Ce(uND*LLUL]x^J[L;11 
[7] э(М>р+1+1)/71+ї26 
[8] +0,22+ORIGIN 22,002-Х 
v 


NOTE: 
1) THE ORIGIN FUNCTION FROM WSFNS IS REQUIRED. 
2) THE NUMBER OF COLUMNS OF X MUST BE A POWER OF 2. 


LINEAR INTERPOLATION 
Alan R. Jones 
IBM CORP. 

VLINTIDIY 


Я Z<X LINT V;M;P 
(11  Z+<V[M+P]+(V[M+1+P]-V[M+PJ)x(X-V[P]J)+V[P+1]-VEP+4[ ( 
"1+M)L+/Xo .2VLAMe0.SxpVe,V]] 
9 


EXAMPLE: USING LINT TO INTERPOLATE SIN X WHEN SEVERAL VALUES HAVE 
BEEN TABULATED. 


Ү+10Х+0 .1 .19 .27 .35 .39 .44 ‚48 .54 ‚61 .76 


.1.2.3.4 ,5 LINT X,Y 

0.09983341665 0.1985929627 0.2952938257 0.3893386251 
0.4792314476 
10.1 .2 .3 .u .5 

0.09983341665 0.1986693308 0.2955202067 0.3894183423 
0.5794255386 
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20808 00 44441408 

86 ХОЯ 

цО14Ун04800 ONLLNANOD 04140109 
Мапу? 4 NHOP Xu Gad 


dSIGON аху?( 
я 
я 2 ^ 0 ХАХЗХх(0%Х-ж)1422М1 


Се JuVd 'ддн”д0н 
Lt lavd-LéJevdx( Le Іа ўаз 9 0 ) дбах (at е (Lt JuVd x1, 2! )*L т] &уч-Х : 212 


1У2/(90664670 Є90$98°0 1864970 66666470 04888770 пёвїї”0_ SbELEN"O| 1ч6:970. 69089870. 90564570 99) 
2192/(81896"0 ТЕ096870 Т4667970 65680670 0 652080670. 14ЕЁТ9"0. 16088870, 91896'0 -499)« 
27У0/(6209570%99996470%26550570"6ЕһЕ8І70"56һЕ8Т70 “26550570 "99995470 “5009670 >299)е 
27У2/(8075"670%ТЕ5Т7847076ө8508708085ө850870, 16514470 “80768670 -294)- 
22У2/(49266720760079970%61986070%67986070 “60079970. “4426570 >299)е- 
2'4V2/(81906*0'69n8€G^0*'0'6958€65'0 “8790670, -299)« 
2ЧУ2/(961198"0“186666"0 “18666670 “9679870 _+4 99 ) < 

21V2/(L6StLL'O*0* L6SnLL^0 +L 99 J+ 

JUV2/(CSELLS"O'SELLS" 0 0,00) 

("1Ч4у4< 

4%4уа XüX-X 


адцхха/ хіт JOOHvH 71V 

27У2/(614999070 19пьп1'о 98061270 29269270 n¿SS6Z*0 "2556270 49259270 98057070 ТЗНЬНТ"О 674999070-490)- 
27У2/(ө%1278070 80908770 11909270 15621670 66006670 15601670 11909070 84908170 thLCIBO'O-A490)« 
21И2/(62270770%178622270%40/6%670488909670 ' h8979€ " O LOLE TE O* T8ECCC O' BCC TOV O99 )e 
21V2/(S8h621'0'SOL6LC'O* £818E O  96L Tn 'O' EB TBE"O' SOLGLC' 0 66 п6ст "0-90 ) + 
2üvg/(RCETLT'0'29,09£ 'O* hT6L95"0' пБ" 0 cOLOSE "O' hCETLT Oo d) 
2UV2J/(LCo9€C'0'6c98Ln*0*68889S'0* 6C98Zh "O' LC69EZ" OM dg). 
21у2/(648:нС"06н1289"0" 601249 O' SSü Lt OMIY 

21ү2/(98484470"68888870"984654670-049)- 

чүд/(1519049)« 

(22008%(Х49-8)- 
MONS Xd VUDANITM 

NOLLVEDEENT NVISSUVO 5400 ХАХ 


+ 


451404 


f127 


414805 


5005 *0 


142441 


ануд‹ 
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CHARACTERISTIC EQUATION OF A MATRIX 
T. A. BICKART 

EE DEPT., SYRACUSE UNIVERSITY 
SYRACUSE, NY 


ҮСНАКЦ11Ү 
V Z«CHAR A;M;S 
[1] 26 1tppM-(S,S«p4[1; ]) pO 
[2] +(52р2+2,(+/ 1 1 QM<(A+.xM)+AX 1*2)13-p2)/2 
v 


CHARACTERISTIC EQUATION OF A MATRIX 
J. D. BRULE 

EE DEPT., SYRACUSE UNIVERSITY 
SYRACUSE, NY 


VFRAMELUJV 
У D+FRAME A;X;N;T; P 
[1] D+1t(X<(GAN)xW+1)-W),,P<(AW)e,=iW<pALl;] 
[2] *(2W20D) ,PLY JeT4 1tD<D,(-(+/Te(P+,(A+.X(NW,W)pP))[X])+op) 
v 


POTE: 
ROTH ALGPRTTUMS PRODUCF THE CHARACTERISTIC FOUATION, 


DES) = DETFST-A]. THUS, DCS) IS A POLYNOMIAL IP S, I IS THE 
TDENTITY MATRIX (iN)o.zi" AND A IS AM М Ву м MATRIX, TF C DENOTES 


PTR COEFFICIENTS TF D(S), THEN C[3) TS 4 AND DIE) 18 C+.xS*@n0, uN. 


4“(110)9.5110 
CHAR A 
1 710 45 7120 210 7252 210 7120 45 “10 1 
_ FRAME А Е 2 = 
1 10 85 7120 210 7252 210 7120 45 710 1 


Both of the functions above are implementations of Prame's 
algobithm for finding the characteristio equation of a matriz. 
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Garth Foster 
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Syracuse University 
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EDITORIAL 


Quote-Quad is now being edited at Lakehead University, Thunder Bay, Ontario {Thunder Bay + Port Arthur 
+ Fort Wiltiam under recent amalgamation) and distributed and printed by Syracuse University. Constribu 
tions and correspondence can either be sent to Garth Foster who will forward it, or sent directly to Don 
Watson, Computer Center, Lakehead University, Thunder Bay, Ontario, Canada. This issue has been pro- 
duced as quickly as possible, and if enough material comes in, another will be published within a month. 


The circulation of the Newsletter is now too large for it to survive without some financing to cover print 
ing and distribution. The amount of any subscription has yet to bedecided. There was some discussion at 
the last SHARE meeting of a possible journal into which Quote-Quad might be absorbed. 


The structure of this issue is a little more formal in an attempt to make the newsletter more useful and 
encourage contributions. If you have any comments on this please write. We begin to realise some of the 
problems that Garth Foster has been facing. In particular Alan Jones original Fast Fourier Transform was 
submitted in WIDTH 120, and had to be retyped resulting in editing errors. His corrected function has been 
retyped for the same reason and it is hoped that this version is error free. There are also problems in mixing 
АРА. type with other type. A concluding note gives information on preferred copy. 

Help is needed to collect material for Quad-Quote. Material for inclusion is also requested. General 
articles of interest to al! A P.L. users would be particularly welcome. A series will be started on what use 
is being made of A.P.L. at various installations. (f you have anything to communicate please send a letter or 
an article. Short notes will be included in the ?/ section as will any rumours Does anyone know much 
about A. P. L. usage in Europe? 

If anyone is willing to act as a correspondent, or help in locating any articles relating to A P.L. for inclu 
sion in the bibliography section, would he please write. Comments may also be included with the reference 
for publication. 

This issue includes a short report on the implementation discussions at the recent SHARE conference. 
Large file-access will be discussed again at the meeting of the users committee on the 8th, 9th June. It is 
hoped that another copy of Quad—Quote can be published before then including the views of anumber of 
A.P.L. users who will not be attending that meeting. 

A.P.L. functions have now been numbered for reference. Anyone who has tried a published function 
is invited to write giving certification or improvements. 


2/70 
A.P.L. is very definitely on the move. With the release of a fully supported (type 1) OS/A.P.L. system 
which includes a possibility of varying workspace size, 1.8.M. has shown that it has taken note of the interest 
shown at the Binghampton Conference and elsewhere. 


The A.P.L. working committee has now been upgraded to a recognized part of the Interactive Systems 
project of the Basic Systems Division of SHARE. This issue contains information from the meeting at the 
recent SHARE conference. A Committee is to be formed to work towards standardization of the language 
through publication of a formal description. 

Ted Edwards, Electrical Engineering Department, University of Alberta, Edmonton, Alberta, Canada 
has available for free distribution a number of A.P.L. packages, including complex arithmetic, text editing 
E E. design, matrix algebra in real and complex domain, polynomial and rational approximations, and a 
recommended standard library documentation scheme. Also available from Alberta is Ken Smittie's STAT 
PACK 2. 

A Users’ group permitting membership outside SHARE has been formed with principals Robert 
Benanati. Polytechnic Institute of Brooklyn, Ted Edwards, Garth Foster and Karl Korn of A.P.L..Man- 
hattan. They intend to publish a reference journal on A.P.L. theory, implementation and use. 

The University of Alberta have had 3 years of experience with A.P.L. They have found it easy to teach, 
particularly to non-programmers. One benifit from A.P.L. is a significant reduction in small student batch 
jobs with their high overhead. 

The following non - 1.B.M. A.P. L. implementations аге in use: 

1. XDS - by Canadian Defense Research Establishment 

2. CDC - by University of Massachusetts. 

3. BURROUGHS - by University of Washington for 85500 

G.E., R.C.A., Univac and Burroughs are reported to be studing A.P.L. implementation. 
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1. P. Sharpe Associates of Toronto publish a newsletter on A.P.L. Their spring issue mentions one of the 
growing uses of A.P.L. іл the business world—obtaining stock exchange data via a workspace of closing prices 
and a further workspace of historical data for studying market trends and for forecasting. It also refers to 
the growing interest in A.P.L. in Educational institutions in Canada, and the impact that this will soon have 
‘on the business world there. 

Dr. S. Charmonman of the University of Missouri-Columbia is considering the possibilities of a batch 
processing compiler, and the next issue of Quote—Quad will contain an article on 60 character represen- 
tation of A.P.L.'s 88 characters and multi—character symbols. 


1. В. М. REPORT 


Given at the Recent A.P.L. Working Committee Meeting at Denver, Colorado 


1.8.М. now has in its A.P.L. organization a language design and extension control section inNew York, 
a development group in Palo Alto, and marketing group. The following information was given by 
1. В.М. : 


Program Products 
The presently released program products contain several extensions to APL not in the available document- 
ation. These include: 
Т. Workspace size is predetermined, but for a particular use the operator may provide a non-standard 
size. (32K bytes + 4K for system use is standard), 
The size can be from 20K bytes to 432K bytes (the capacity of the 2314 disk file or less if using a 
2311 disk pack). APL is also running under the CP / 67 operating system with a virtual work space 
of | M. bytes. A.P.L.Wul run under a total space of 128K bytes. 


The APL interpreter requires about 80K bytes and a minimum of 2 workspaces is required. 


2. Labels are local to functions and thus are reassigned to stack locations whenever the function is cal- 
ted. Labels cannot have their values reassigned within the function. 


3. The Take and Drop functions are extended so that the size of the left parameter may exceed that of 
the right parameter. If so, the excess part is filled with zeros if numeric, or blanks if characters. Take 
and drop apply to arrays not just vectors. Take is a faster function than reshape or index. 
4. A user with a clear workspace can specify the number of symbols he wants in his symboi table. The 
command is: 
JSYMBOLS N 
WAS 256 


Copying a workspace then remaps the defined symbols according to a different hashing function 
appropriate to the new symbol table length N. 


5. A dynamic | / O buffer pool is used for message traffic with users. Long messages may use several 
buffers, appropriately linked by the system. 

6. The APL operator can designate some ports as express ports, having a maximum connect time before 
preemption and forced CONTINUE. 
The APL operator can also designate for a set of the users, the maximum CPU time limit per inter- 


action to protect a user from endless loops. This is done by the operator, not the user. A user ор- 
tion would be desirable. 


APL Reseach 
Current research efforts in the Science Center that may eventually become part of the APL products include: 


1. Virtual memory approach to implementing large files. (APL currently does not permit access to 
data produced by non-APL programs or read from non—APL files). Larry Breed (STSC) is taking a 
different approach by giving APL access to other files through OS. and binding names to files. Kart 
Korn recommended that APL work spaces be treated as fully indexed records. 


Another approach is to provide a utility to convertexternaldata one time into APL compatible form. 
2. Input / Output: Presentiy, APL only communicates with the APL library or the user terminals. Ex- 
tensions to this area to permit use of other peripherals is desired. A number of Philosophical quest- 


ions are unresolved. Should language be aware of the host hardware environment, (like COBOL) or 
should it (like ALGOL 60) ignore the environment ? 
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11. 


Should | / О Бе handled via system commands under conscious user control or should it be included 
in the APL language so that it can be under function control ? One important use for added APL I/O 
capability is to permit output buffers to be transferred out of a workspace (for printing or plotting, 
say) and the space freed for continued processing. 


. A proposed language extension, DEQUOTE, would provide some of this 1/0 capability by permitting 


entry of quoted system commands in functions which, upon dequoting would be executed. This 
feature is presumably similar to that in TRAC. 


. Two additional functions important to linear algebra are being developed to provide matrix inverse 


and inner product of one matrix with the inverse of the other. 


. The base value and representation functions are being extended to handle arrays. 


Catenation is being defined for conformable arrays rather then only scalars or vectors. 


. The code to evaluate the composite functions (inner product, outer product, and reduction) is being 


changed to speed up the execution. 

User defined functions usable as part of the composite functions are being considered. The potential 
problem here is that the amount of space required for arbitrary functions is unknown whereas for the 
elementary functions of the language, the space requirement is known. 


. А formatting function is recognized as desirable. Such a function written in APL represents a signi- 


ficant fraction of execution time in many applications. 


. The ability in APL to call user-written assembly coded functions is one way to let the programmer 


extend APL. This is not held in high favor by the Science Center Group so is unlikely to be in any 
released system. 

Extension of the allowed array element from being only a scalar to being an N—dimensional array 
will permit significantly more general structures to be simply processed. A problem area is whether 
each element need have the same dimensions. 


. List operators are being investigated with uses other than output of mixed type. 
13. 


Catenation of confarmable matrices is being investigated. 


April 1970 - Vol. 2, No. 1 


USING THE ACKERMANN FUNCTION TO RATE PROGRAMMING LANGUAGES 
J. A. BROWN 
SYSTEMS AND INFORMATION SCIENCE PROGRAM.SYRACUSE UNIVERSITY 


Abstract: A programming language is rated with an integer j if it is possible to state the Ackermann function 
j An in a closed non-recursive form (n an arbitrary non-negative integer). 


Recursive definition of the Ackermann function; 


OAn = n*1 
jO =  (j-11A1 
jAn = (іІ-ТРАПА(п-19 
Using these definitions it can be proved (see proof of 5An later in this article) 
OAN = Net 
ЛАП = 24H 
2AN = 3+2x7 
ЗАМ = 73425341 
WAN = C3s*/(243)02 


І know of no language which permits addition of а one, but not a two. Simple assemblers permit addition 
of constants and addresses etc. (IE : TRA * + 2). More advanced assemblers permit adding an arbitrary 
number of one constant (2 in this case} to another { IE: ordinary multiplication). These languages are 
assigned an Ackermann rating of 2. Higher level languages (Fortran, PL /1) permit products of an arbitrary 
number of replications of a constant (IE: ordinary exponentiation}. These languages are assigned an Acker- 
mann rating of 3. A.P.L. permits exponentiats of an arbitrary number of replications of a constant (IE: 
ordinary reduction) A. is assigned an Ackermann rating of 4. 


The question now arises as to what a language requires to deserve an Ackermann rating of 5. Each step 
required an arbitrary number of replications of the previous operation. Therefore 5An would probably 
require an arbitrary number of reductions. | propose that the ‘execute’ operator permits an arbitrary 
number of reductions by the following formula - 


(є MEANS EXECUTE THE A.P.L. STATEMENT) 
SAN з C 3+ef((3xN+1)p!(*/!'),'!'up2',(3xM)p'o2)' 


РРООР 


ЗҮ RECURSIVE DEFINITION 


540 = 471 = 72688/4р2 
BY FORMULA FOR U = Q 

540 = 73*c(3p'(*/9),' u02)' , 001р2)! 

MEME 
ASSUME FOR N 
5A(Nt#1) = 4AC5AN) 
_ = 34*/( 345A) p 2 

+**/(3+ 3+e((3xN+1)p'(*/'),'up2)',(3xN)o'o2)')p?2 
Ip! 


3 
3 


CLAIM IS VERIFIED. PROOF ОР THR OTHER FORMULAR IS BY DOUBLE 
INDUCTION IN EZACTLY THE SAME MANNER. 


Therefore APL with an ‘execute’ operator has an Ackermann rating of 5. 
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Of course the general Ackermann function could be evaluated using any general purpose programming 
language. So the Ackermann number is intended to reflect the ease with which a given problem can be 
expressed. The spirit of the scheme is not to imply special significance to exponential reduction of the 
other particular operators used. Rather the operation should be generally usable, | would not assign an 
Ackermann number of 5 to A.P.L. if the only character vectors which could be executed were exponent 
reductions. Nor would | assign the “number” infinity to a language which happened to have a primitive 
Ackermann operator. 

It would be interesting to investigate the form of 6An. It is possible that the execute operator would be 
sufficient since the pattern indicates that бАп would require an arbitrary number of executes. Another 
possibility is that execute would not be enough. Analysis of 6An might then suggest what feature a langu- 
age requires to deserve a 6 rating. 

(The Author would like to acknowledge many useful discussions with Larry Breed of S T S. while they were 
at 1,B.M.'S T. J. Watson Research Laboratory.) 


CALENDAR OF EVENTS 


A. P. L. Workshop — 2 — Sponsored by A. P. L. User's Group and NASA's Goddard Space Flight Center 


This is proposed for Monday and Tuesday the 8th and 9th of June at the Goddard Space Flight Center in 
Greenbelt, Maryland. The suggested dates could possibly be altered to June 19th and 20th so as to follow 
the І.Е.Е.Е. conference in Washington. The agenda of the meeting is to be designed to deal constructively 
with the issue of large files and other A.P.L. subjects of interest to the attendees. 

ext. 4375 (after April 21st) 


Interested persons should send their name, address and telephone number to GARTH H. FOSTER, 101, 
LINK HALL, SYRACUSE UNIVERSITY, SYRACUSE, N.Y. 13210, so as to receive all future information 
on the conference. GARTH FOSTER may also be contacted at (315) 476-5541, ext 2651 (until April 21st ). 
Access to Goddard is controlled. A brief statement (<200 words) should also be submitted together with 
name and address to Dr, C. WOGRIN, DIRECTOR, RESEARCH COMPUTER CENTER, UNIVERSITY OF 
MASSACHUSETTS, AMHERST, MASSACHUSETTS, 01002, indicating what areas of discussion are of 
interest to them and what they can contribute to any panels or in the way of papers. Cost is yet to be de- 
termined. 


CORRESPONDENCE 
Ackermann Function — this issue of Quote—Quad 


| was fortunate enough to read Jim Brown's article before publication, and having checked his formulae, 
| started reflecting on what monstrous ideas one could dream up for the implementors by adding exten- 
sions instead of the dequote function. 

These formulae could be generalized: 


РАМ = ~3+2u(P](N+3) A 
OR 

(P+1)AN = 3+o[P]/(N+3)p2 B 
WHERE 

«L1] =+,ш[2]=х,ш[ 317* с 
ХаСРІК = wLP-11/KpX p 
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w[ P] is thus a subscripted primitive function, and these formaulae can be shown to hold for all integer Р>0 
ГЫТ ӘГ51, 076], ... of Ql 
were added to any language, its Ackermann number would be raised to Q or, by virtue of formulaB, if it 
had a reduction operator to О + 1. This is one way in which the complexity of A.P.L. has been increased 
already - by the inclusion of function subroutines as primitive functions, In the case of ! the function is 
recursive, so that instead of being a subscripted function Xu [ P ] K 
could be a triadic primitive recursive function equivalent to the user — defined triadic function: 
VR+X FIP] K 
[1] -(Р=1)/0,8+Х+К 
[2] R+FÜP-1]/KoX 
У 
This illustrates reduction with user defined functions, and a function which is dyadic in one sense and 
triadic in another (Greek for 2% ? ) 


However this is not very general. Instead supposing we define the underlining of the restructuring 
function to reverse its operands: 
d Хой = KoX 


and allow Г P Jand © amongst other possible primitive and user defined functions to be used in inner pro- 
ducts. Then equation D can be written, Xwl PJK=Xw[ P-1].pK 


and СР] canbegeneratedusing (P-1) р'5: 


РАМ: 3424.0 .0.....9( N43) 
For example, xr 2 
342: 3%2%.р.р5 
= 3+(+.p)/5p2 
3+2+.р2+.р2+.р+/2р2 
= 3+2+.р2+.р+/4р2 


and so оп. Can anyone find better and more useful language extensions for generating Ackermann functions? 


Don Watson 
Computer Center, 
Lakehead University, 
Thunder Bay, 
Ontario, Canada 
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ALGORITHMS 


NUMBER 20 FUNCTION TO ACCELERATE AND /OR 
INDUCE SEQUENCE CONVERGENCE 


Theodore A. Bickart 
Department of Electrical Engineering 
Syracuse University 


The APL / 360 function displayed in Figure 1 implements the iteration of sequence-to-sequence tran- 
sformation described by SHANKS," The transformation is the simplest of many such transformations de- 
veloped by Shanks to accelerate and/or induce convergence. 

У Z+SHANKS A;AN;ANM;ANPiB;D;N 
[1]  *(2«pAcCANXB) «(Be CCLE. 10x48) 219) ^C 
1E 10xAN )2|D)xN+(~D=0) x (ANPXANM) -AN*2) 5D- АМР+2+А )+( ANM 
7244)-2x4N7 14144) /1 
[2]  Z«4[p41 


У Figure 1 APL / 360 Function SHANKS 
Starting with the truncated sequence ayy з = І, ..., пр the function 
generates a sequence of sequences NU i= 1, way n; апі j > 1. The elements or 
2, 
the (j+ 1) - st sequence are determined by 
a a - a Я 
5 rere 1 1215 ХАНА) а) 
зог ИЛЖ ТЭВЧ 2 4 
DIA 2,142 j,i jin 


provided the numerator and denominator are not both zero; іп this latter instance, 8341, Fran) 8, ES 


The iteration on the index j continues until D X 2; let ў denote the associated value of j. 


Then, а. n is the value assigned as the limit value of the initial sequence. 
Jon? 
š 


To illustrate how this iterated transformation accelerates convergence, suppose. 


i 
бу. kel 1 23 
паа (ш € ии 
yis СЮ ӘЗ 
k=1 
These ay are the terms in the sequence of partial sums associated with the slowly convergent Leibnitz series 
Ду, 
m= 4(L- Z+ 5-54 2+}, 
маг жас 


The first ten partial sums are displayed in Figure 2 along with the assigned limit for n= 
Value of л computed as ot 
3.141592654 


See pp. 2-4 of Daniel Shanks, “Non-tinear Transformations of Divergent and Slowly Convergent Sequences,” 


J. Math. and Physics, Vol. 34, Мо. 1, April 1955, pp. 1—42. 
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i ay і 

104 

2 2666666667 n, Limit assigned to 
3 3.466666667 1 Sequence by SHANKS 
4 2895238095 

5 333968254 5 3142105263 

6 2976046176 6 3141450216 

7 3283738484 7 3141599357 

в 3017071817 8 — 314159086 

9 3252365935 ә 3141592714 
10 3041839619 10 3.141592637 


Figure 2. First Hlustration of SHANKS 


To illustrate how this iterated transformation induces convergence. suppose 


i 
k-1 
ть = (ay рк. (3) 
1,1 k 
k=l 
These ay are the terms in the sequence of partial sums associated with the power series 
_ d vu 1 5 

In(l+ x) = x - 5 +5 - рх +07 


evaluated at x = 2, which is outside the region о? convergence of this series. The first ten partial sums are 
displayed in Figure 3 along with the assigned (induced) limit for n475, ..., 10. 


Value of Іп З compted as 


°з 
Я 1.098612289 
i 2, | 
1 2 
2 0 п Limit assigned to 
3 2.666666667 1 Sequence by SHANKS 
4 1.333333333 
5 _5.066666667 5 1.10070922 
6 5.6 6 1.097435897 
7 _ 12.68571429 7 1.098684142 
8 1931428571 8 1.098576091 
9. 3757460317 9 1.098614054 
10.” 64.82539683 10 1.098611423 


Figure 3. Second Illustration of SHANKS 


It is of some interest to note that if the a4 í are the partial sums of a geometric series — converging or 


diverging — the assigned limit when n4 > 3 will always be the exact value associated with the function 
c/ (1* x) generating that series. 


The function SHANKS displayed in Figure 1, which implements the algorithm just described, generates 
an explicit response, the assigned limit. The input is a vector which has a | í as its i-th element. The length 
of the input vector, ny must be no less than 3. This could be avoided with à slight increase in program com- 
plexity; however, the need for a labor saving program does not exist when nq < 3. 

Two assumptions were made in the programming of the function. First: If the denominator of (1) is 
identically zero, it is assumed the numerator is also. Second: If the magnitudes of the numerator and deno— 
minator of (1) are both less than a j i, 4x10°10, then they are assumed to be zero and a j+ í is set equal to 
pet: 


NUMBER 21 FAST FOURTEP TRANSFOR: 
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А CORPECTED AND IMPROVED VEPSION CF THE PREVIOUS 
NIT IS CLAIMED TO BE PASTER,TAKE LESS SPACE,AND 
EITHER ORIGIN 1 O" 0. 


Я 2ЄРРТ X;C;D;iE;J;K;L;LL;M;N; 0 
[1] LL+L2*-0-1M+l 20 ,0рЕ+1-2х-0+11 „+1 L-0 ,OpKrı Ne 1%рХ 
[2] +(M>L*L+1)/1+ppd*J,Np O 1 °,=(2*L)p1 
[3] Z<*xX[;(L+*0)+(@*LL)+.xJ<(M,N)oJ] 
[4] X< 2 1 °.оО[-0-К)+ 14LL 
[5] Z<Z[;K-,LL[L]xJUL;]ll+(o0Z)p(-ZX[;D]xZU;Cl),+#X[;D<O+NoLL[E+ 
M-L]x-0-v2xLL[L])Jxez[ ;C+K+ ,LLLL]x0=JE2; 11 
[6]  +((M+0)>L+L+1)/5 
[7] aTHIS VERSION OF THE FAST FOURIER TRANSFORM WAS WRITTEN BY 
AL JONES,SDD ENDICOTT, X4344 11/68 
(81  AREFERENCE: J W COOLEY ,J.W.TUKEY ,MATH COMP. „19,297(1962). 
v 
(7 FOUND IN OUR OLD POS/APL ТГАТ ә AND ў tP 
IPLS“ENTED AND I CHANGED LINE (5].TT ТЕПП WO 
THE LINE 15] T USED 10 GIVRN BELOW. 
DON WATSON) 
[5] 2+2; К- „БАРА: 13+(р2)р(-/С02хС:р1х20 ;cJ)J),+/L01x[;D<0+8 
PLLLE*M-L]x-0-A2xLLEL]]xZL ($1 (pX)L0]). ;C+K+,LLLULJxO=J[L;1J 
NUMBER 22 SOLUTION OF SIHULTANFOUS 


SUBETTTED BY PAUL L.KINGSTOM, I.B.M, FIFLD SYSTEMS Qpumpn 
SYRACUST,N.Y, 


PHCRLE" 3X-6Y+162=1 


2X+5Y-62=2 


SOLUTION 


10 
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У SLIDE 

[1} ‘ENTER NUMBER OF ROWS' 

[2] мо 

[3]  'ENTER NUMBER OF COLUMNS" 

[4] 14 

(51 "ENTER MATRIX AND RHS BY ROWS' 
t6] 4+] 


[7] * ORIGINAL INPUT DATA ' 
[8]  (M,N*1)pA 
[9]  4-(COPN) ,N*1)04, QI, N*1)p 1,Cı9+1)=0 
[10] L:920x1077e*/4L1; W ]z0 
[11] +21ж17=1+0хКС+(4 | L1; w1) IN+1-7] 
[12] sLXCle0xpSe(xS)xL |5+А[1; J&4L 1; KC] 
[13] эй,рАФА-АГ KCle .х5 
[18] Z1:0UTAxi0zC | 4C1;KC]) І | 4L 15911 
[15] A< 1 0 *(XCz1N*1)/A 
[16] W<N-1 
[17] TEST:*LxiOzM-M-1 
[18] 'FINAL SOLUTION' 
(191 -0,рПед 
[20] 0иТ1:%0,рПе"М0 SOLUTION! 
[21] 20:-ТЕ5х10-411;%%11 
[221 +0,pL+' INCONSISTENT EQUATION' 
[23] TES:+TESTXpppA+ 1 0 +4 
v 

SLIDE 
ENTER NUMBER OF ROWS 
D: 

2 
ENTER NUMBER OF COLUMNS 
D: 

3 
ENTER MATRIX AND RHS BY ROWS 
0: 

37616125762 
ORIGINAL INPUT DATA 


3 75 16 1 
2 5 76 2 
PYRAL SOLUTIOS 


un 
50 
27 1 


ne 


п 
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CONCLUDING NOTE 


Preferred Method For Copy 


At the moment articles are set up using a varityper, and A.P.L. functions are pasted т. It helps if the 
A.P.L. text has been grouped іп blocks as much as possible. If then a good copy of all A.P.L. text is separa- 
tely enclosed with the article on plain paper the required pieces can be cut off and stuck in. Errors due to 
our copying functions can be avoided if you print them in not more than WIDTH 60. 

Short but helpful information might be enclosed with functions to assist the user. The three published 
in this issue illustrate some of the ways of doing this, The first one is fully written up with references. The 
second contains some information enclosed as comments in the function. The third includes a sample ter- 
minal sessions showing how to use the function. Both the first and the third enclose'sample data for check- 
ing the function. The amount of each depends very much upon the algorithm — how well it is known, and 
how easy or difficult it is to use, and is at the discretion of the author. 


However, small functions on less serious matters will always be wecome, as will any frivolous material 
which can help make Quad—Quote interesting to read. 
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EDITORIAL 


The main topic of this issue is the conference held at the Goddard Space Flight Centre. 


Some material was kept back from the last issue including Dr, Charmonman’s article to form a nucleus for 
this one. However, until material was obtained from the conference there was not enough sent to make it 
worth while producing another issue. Would all those who contributed to the conference - even if they spoke 
only for a short period - send an article for inclusion in the next Quote—Quad. Deadline is the end of August. 
Other articles on A.P.L. will be very welcome — perhaps you have made interesting special uses of A.P.L. or 
you have ideas on the language - integrating system commands, file handling, local variables or definition 
mode into the structure of the language — extensions or contractions of the language, side effects, tricks of 
particular implementations which make functions more efficient, an article on the relative merits of using 
long, short, wide, thin or “black box” functions in programming, or a comparison of Algol and A.P.L.as 
languages for publishing Algorithms. Articles on experiences and uses at a particular installation would also 
be useful to others. We hope to start a section called pornography on side effects inherent in APL for 
various implementations. 


Anyone having such a contribution should send it to: 


J. W. Myrna 

4921 Seminary Rd., 
Apt. 820, 
Alexandria 

У.А. 22311 


If you have published an article or do publish an article on A.P.L. send details to be included in the 
bibliography, and, of course, keep sending the Algorithms. 


?/П 


Burroughs are experimenting with some very radical extensions to the language. 
Pat Haggerty of the University of Maryland is implementing A.P.L. on the Univac 1108. 
The latest score in the race to produce A.P.L. processors is IBM 360, 370, 1130, 1500, XDS sigma 7, 


Burroughs 5500, Univac 1108 and CDC. A big problem faced by non І.В.М. implementors is the large numb- 
er of teletypes in use which do not have a keyboard rich enough for A.P.L. 

1.B.M. reported at the conference that experiments with an unquote or execute function suggested that 
it would satisfy many user's needs for extra flexibility, but otherwise kept surprisingly quiet. 

Don Watson at the Computer Centre, Lakehead University, Thunder Bay, Ontario, Canada , has 
an A.P.L. teaching package for IBM/360 which starts the student from scratch, so that no supervision is re- 
quired at the terminal. This will be distributed to anyone sending a tape. 

A.P.L. is beginning to spread its tentacles into Europe (see letters to the editor). 

At least five file handling systems have been implemented for various A.P.L. systems. There is stil! no 
news on an official 1.В.М. implementation. Some users, are concerned for the lack of any common standard 
over these implementations, even for the same machine. 

A new improved and expanded version of APL/360 and APL/370 available for DOS, OS/MVT and 
OS/MFT (Release 19) and with the new status of Class A supported program product has been announced. 

Source coding in machine-readable form with program logic manuals will also be part of the documen- 
tation. The new version will have internal improvements in efficiency and reliability, some new primitive 
functions and extended scope for some existing primitive functions. There is apparently no external file 
handling ability. There has been an increase in price. Contact the local IBM Office for details 
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APL COMMUNITY MEETS ATNASA 


Kar! Korn 
APL General, Inc. 


About 200 computer professionals coordinated their extensive APL activities on June 19 and 20, 1970 
at Goddard Space Flight Center. Ph. D's were in profuse supply. Interest in APL has become so widespread 
that the SHARE organization (exclusively IBM) is no longer an all-inclusive vehicle. Thus, a historic deci- 
sion was made to organize a professional association centered around the APL computer language! There 
are now APL implementations on the machines of IBM, Control Data, XDS, Univac and Burroughs. 


NEW COMPUTER DIRECTIONS SET 


The APL enthusiasm so apparent at the previous SHARE meeting in Denver (APL-IBM’s FINAL COM- 
PUTER LANGUAGE!) has been replaced by confidence. Committed new directions for major projects 
were in evidence throughout. Although Dr. Ken Iverson and Adin Falkoff of IBM Research were present, 
they made no presentation. 

Several Large Data-base Implementations for APL have been completed. One which was demonstrated 
included shared files from remote terminals. Though similar in many respects, the source language state- 
ments for the various implementations is not the same. 


At present, there is no IBM release of APL which includes the capability for handling the Large Data-base 
problem. The power of the APL language for so-called commercial-type processing is therefore available 
through the time-sharing vendors of APL, but NOT from IBM. Thus, with few exceptions, the Corporate 
and University in-house installations seem to have lost the technical leadership to the entrepreneurs. 


CONTINUITY 


Initiators of the 2-day conference were Cyrus J. Creveling of NASA (host), Dr. Conrad Wogrin, Pro- 
gram Chairman (University of Massachusetts, Amherst), and Dr. Garth Foster of Syracuse University 
(Coordinator). The Committee to decide on a host for the Fall meeting cosists of Conrad Wogrin, Harvey 
Bingham of Burroughs Corp., and Karl Korn of APL General Inc. 

Many of the attendees arrived Thursday nite, with the conference scheduled for an 8:30 a.m. start Fri- 
day morning. In welcoming the group, Cyrus Creveling traced APL from Iverson's teaching of it in the class- 
room, its use as a specification of various systems and its implementation on various computers to a fourth 
and much wider context for APL; it is beginning to impact the computer community at large and to chal- 
lange the older well-established languages. 

Dr. Foster, in his opening remarks, requested that the presentations maintain a professional level. 
“We're here to keep the information flowing,” he emphasized. 


TECHNICAL PRESENTATIONS 


The first paper was presented by Dr. George H. Ludwig of Goddard (Chief of Information Processing) 
on Telemetry Data Processing. The data from 20 space craft averaging 24 years of orbitting and delivering 
data at rates from 200 to 128,000 bits/sec now produces 4000 tapes per week. ^: of a million tapes have 
been accumulated. 1970 will average about 270 million data points per day. A proposed facility would 
have the data base on line to the experimentors through remote terminals. Dr. James Vette of Goddard 
spoke on “The Archivai- Information Retrieval Problems of the National Space Sciences Data Center.” 
His talk emphasized the need for APL with Large File capabilities. 

Demonstration of an APL On-line Shared files system developed by L. Breed and Eric Iverson At I.P. 
Sharp (Toronto) was given by Al Rose of Scientific Time Sharing. AI has programmed a simplified airlines. 
reservation system (2 pages of APL statements) which uses a number of remote terminals serving as agent- 
sets, and gave a very interesting demonstration. Larry Breed (Scientific Time Sharing) spoke on the con- 
struction of the system which includes user-controllable privacy level, deadlock-free and race-free file shar- 
ing and requires only one new operator-function in the language. The possibility of actual execution of the 
formal APL description of System 360 was also mentioned. 

Dr. Henry T. Lippert of Florida State University and Tom McMurchie (USAF) presented “APL and Files 
оп the IBM 1500.” In this implementation, allowable users of files are enabled by the APL system operator, 
The system also uses only 1 new operator. 

A commercial rather than scientific File Management System developed at the Computer Company 
(Richmond) was presented by Gerry Enfield. Four access methods are Sequential, Direct, Index Sequential 
and Physical. A file record corresponds to an APL vector and the system utilizes functions called GET, PUT, 
OPEN, and CLOSE. It can work on files created by systems other than APL by using pre-processor utility 
programs to convert into APL — compatible formats. 
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Brooks White and John Rose of Agoranomic Teleprocessing Systems. Inc. (Miami) described an APL 
360 file handling capable ofreading any piece of code from any device. Devices are specifiable. The system 
has many similarities to those previously described 


An APL File-handling panel was then assembled; four different APL tile handling systems were repre- 
sented - a milestone to say the least Мапу important technical observations were made. One of these, pre- 
venting run-away usage of storage. was considered to be best handled by a system-allocation constraint simi- 
lar to the number-of-workspaces constraint how being used. Ted Edwards (U. of Alberta) suggested that 
the sum of workspace and file-space is that which should be limted. 

The Business Meeting for forming the APL Users Group adjourned to evening Committee sessions with 
instructions to report to the constituency on Saturday. 

The Saturday session began with Dr. James Kinsey (NASA) on "Scientific Analysis of Telemetry Data 
and the Need for File Linkages and Large Data Bases.” He pointed out that both the programming and scien- 
tific communities at Goddard have felt that APL is the language for NASA. In the past APL use has been 
small because of the file handling limitations. His talk emphasized the problems of enormous volumes of 
formatted input tapes. 

Dr. Jim Ryan (Burroughs) gave a stimulating talk “Some thoughts on Scalars, Commands and other as- 
pects of APL”. His “APL, extended” introduced concepts of formalized blocks and groups (of statements), 
onto which generalized subscripting would be permissible. The extensions added definitional powers includ- 
ing range of applicability with delayable definition inception and the capability to redefine the primitive Key 
board functions but not the fundamental delimiters. Conditional statements are also possible. The extensions 
resulted in some decrease in simplicity and sequentiality. Dr. Ryan will make available a written technical 
description of his work, which was received with intensive interest and a broad variation of comments. 

Dr. Pat Haggerty, University of Maryland, spoke on “Ал APL Implementation on the Univac 1108.7Не 
requested feedback on the teletype character set which he has proposed. His intention is to implement the 
APL system commands as J—beam functions. 

Lynn Yarbrough (Arcon Corp of Wakefield, Mass.) spoke on possible extensions to APL notation for 
graphics also with a broad variation of comments. Don Watson of Lakehead University presented what 
might best be termed a brainstorming discussion including use of the system command flag as a monadic 
operator. The discussion bordered on a view that interpreter-recongnizable components could be included 
as source language elements, as well as the interpreter components themselves. This would permit proces- 
sor rearrangement by the source language. (“beyond recursion"!) 

At the final Business Session, a Founding Committee was elected, consisting of Garth Foster, Alan T. 
McEwan, Bill Berquist, Ted Edwards and John Rose. 

In closing the conference, Cy Creveling remarked, “If we could all tell each other what we are doing. 
the results would be better." Very true. Much information was disseminated. No information was available 
on the relationship of APL to [BM's new System 370 computers. 


July 10, 1970 - Vol. 2, No. 2 /85 


SIXTY- CHARACTER REPRESENTATION ОЕ APL SYMBOLS* 
S. Charmonman 


Associate Professor of Computer Science 
University of Missouri-Columbia 


A subset of Iverson's notation | 9 is now available in conversational mode as APL/360 оп IBM 5/360 
[ 4, 6, 8 Jand APL/1130 on IBM 1130 [3]. The notation was used in describing the S/360 [ 7 Jand men- 
tioned in the course B2 of the ACM Curriculum-68 [1]. APL/360 has also been used in other areas such as 
statistical computation | 2, 10 | and numerical computation [5 ]. Although the syntax of APL is rather sim- 
ple, it is very powerful and therefore investigation should be made to see if it could be made available on 
batch processing with a compiler in addition to the existing conversational mode with an interpreter. 

One of the problems in designing the compiler is to find a representation for APL’s 88 characters and 
other multi-character symbols such as ! formed by a quote and a period. 

Suppose a sixty-character set is chosen. Several representations are possible and will be discussed briefly 
here. 

1) APL symbols can be represented by names, e.g. СЕП. for Г, if we are willing sacrifice them as reserved 
words. 

2) Instead of reserved words, quotes could be used, e.g. “CEIL” or ‘CEIL’ for Г. 

3) A special symbol could be used to precede the names, e.g. € СЕП for Г. A strong objection to the above 
type of representation is that they do not preserve the symbolism of APL. In case of quotes only one rather 
than two is needed for each symbol, e.g. “СЕП. or СЕП”, but the expression including several of these repre- 
sentations may not be too easily readable. A more symbolic representation is perhaps to use two characters 
with a quote in the middle, e.g. СІ. for Г but this may be confused with the notation for strings. A single 
character with underscore could be used, e.g. C for [ , but this would require a decoder before printing and 
slow down the printer. 

The representation proposed here in Table 1 is similar in concept to those in PL/1, that is, a basic symbol 
of the language is represented by up to two symbols of the sixty-character set. Some of the symbols available 
on the APL type ball have not been implemented in APL/360 and are therefore not included in Table 1. For 
comparison the representation for APL/1130 card input is also given. 


The 60—character representation requires no blank to separate any symbol from the others, but a blank 
may be inserted for ease of reading. 

As a comparison a program to compute the three norms, i.e., maximum in magnitude, sum of magnitude 
of all elements and square root of sum of. square, will be given in APL/360, APL/1130 card input and the 
proposed 60— character representation. 


APL/360 
N<(T/B),(+/B),(+/BxB<|A)*0.5 


APL/1130 
N#(@MAX/B),(+/B),(+/BEBH#IA)#0.5 


60—character 
№: =(>:/8),(+/В),(+/В*В:=||А)*:0,5 


There is no hierarchy of operations in APL except that evaluation of unparenthesized expression is done 
strictly from right to left. In the above example, B is declared and initialized to be a vector obtained by tak- 
ing the absolute value of all elements of A. B is then multiplied to В element-by-element and the sum of 
the result taken before square root. The middle parenthesized subexpression computes the sum of all ele- 
ments of B and the leftmost parenthesized expression the largest of B. Finally, N is declared to be a vector 
with three elements and assigned the three values computed. 


“Work supported by the National Science Foundation under Grant NSF GJ--426. 
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The APL/1130 use of minus sign instead of negative sign may be misleading because, for example, in 
APL/360 the function 7541 means ~4 and not -5+1 which means б. In the 60-сВагасїсг set 
the underscore is used for negative sign. 
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Symbols and Representations 


Name APL\360 APL\1130 60 CHARACTER 
CARD INPUT 

alphabet А-В С6:%:2 А В 62422 ABC z 

alphabetic symbol 

1. separator A @DELTA " 

2. underscore es (N.A.) (N.A.) 

3. Шегевіз (N.A.) (N.A.) 
digits 01 2...9 01 2...9 01 2...9 
negative sign 7 (NEGATIVE) -(MINUS) ша: 
decimal point Я . 
exponent, x10 E E E 
pius * + + 
minus - _ - 
times or signum x & * 
divide or + у. 4 

reciprocal 
maximun or ceiling f @MAX @CEIL ЭЧ 
minimum or floor L емін 9FLOOR < 
power on * * ж: 

exponential 
logarithm ° @LoG *# 


residue or 
magnitude 
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Name APL\360 APL\1130 60 CHARACTER 
CARD INPUT 

binominal coefficient 1: f 

or factorial 
deal or roll ? 2 ? 
circular or pi times ° @TRIG @: 
not se @nor _ 
and A QAND & 
or v вов 
папа ж (N.A —& 
пог » (W.A ^l 
less < < < 
not less > 8G2Q >= 
equal = = = 
not equal ж 8NEQ шин 
greater > > > 
not greater 5 BLER <= 
label delimiter t-j $4 
subscript E $ ( 

parentheses 

J t ) 

subscript and local ; $ 

name delimiter 
compress or reduction / f / 
expand \ @REXT 74: 
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Name APL\360 APL\1130 60 CHARACTER 
nth coordinate In] (N.A.) Ча" 
indicator for 
operations 
compress 1 7 @ССМР ver 
expand 1 x @CEXP fip 
index of or index 1 @IOTA @ 
generator 
size or reshape p @RHO š 
ravel or catenate , > , 
take 4 @TAKE && 
drop + @DROP a4 
grade up 4 (N.A.) |< 
grade down ў (N.A.) ES 
reverse or rotate $ @RROT 14 
@RREV 
rotate n Фп] (N.A.) | "n" 
column reverse or e @CROT Іт" 
column rotate 
@CREV 
membership € (N.A.) @= 
decode 1 @BASE #= 
encode T @REF ай 
assign + # = 
go to > eco -> 
ёсото 
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Name APL\360 APL\1130 60 CHARACTER 
quote for string I * ў 

numeric 1/0 D @QUAD #4 

string I/0 М] 802 # 

definition delimiter v ёрЕР oe 

locked definition Ў BLOCK -" 

inner product 

outer product е. GNULL. #. 

carriage return (CARRIAGE (W.A.) $ 


RETURN) 


Note: (N.A.) means not applicable or not available. 


Parentheses to the left of a symbol explains what the 


symbol is supposed to be, e.g. 


opposed to -(MINUS). 
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APL/360 RECURSED ! 


Alan McEwan & Don Watson 
Lakehead University 
Ontario 


(Part One of a Two-Part Article) 


This article originated from a collection of thoughts on possible changes to the APL language which 
were to be discussed at the recent conference at the Goddard Space Flight Centre. The first section gives 
the background to explain why the authors felt a need for these changes. The two areas of change are the 
addition of a very powerful primitive — the execute function and some modifications to integrate system 
commands into the structure of language. 


Introduction 


The primary aim of Lakehead University's Computer Centre is to make the power of the computer 
easily and readily available to the whole university community. It had been difficult to achieve this aim 
for a large class of potential users who had neither the time nor the inclination to overcome the barriers 
presented by batch processing to the learning of the new computer concepts and languages. (EG. Job 
control language, DO loops and turnaround). Instead of welcoming the computer's help, many resented the 
constricting way in which communication always seemed to be on the computer's terms and in computer 
jargon. 


In some measure the control can be returned to the user through use of a good interactive time-sharing 
terminal system with its advantages of motivation, interaction, flexibility and ease in error diagnosis. But 
for the user to become fluent enough to think and converse quickly at a terminal, the programming language 
has 10 be concise, powerful, and use simple familiar concepts. This is a formidable set of requirements for 
any language but APL for the most part satisfies them. The computer centre welcomed APL/360 as a 
means of reaching a new type of user — the casual user; initially he needs no knowledge of the computer 
and only those formula concepts with which any public school graduate is familiar in order to do his com- 
puting. Accessibility is considerably improved, and once started, a user is quickly motivated to improve 
his knowledge. 


APL was introduced on an experimental basis in November, 1968 and it soon attracted a band of 
enthusiastic regular users. However, in spite of the ease of access inherent in the APL/360 system, the casual 
user was still deterred because he had to learn to use the terminal, the system and the language alt at the 
same time. Supervision at the terminal by an instructor only partially solves this problem and proves im- 
possible with large groups of students and a limited number of terminals used over a long period of time. 
An alternative solution was to clearly separate the teaching of APL into: 


(1) that part which requires a terminal — terminal manipulation, function definition, system commands, 
error diagnosis and fundamental computing concepts; and 

{2) that part for which a terminal is not required — the language itself. A student learns more by 
evaluating an APL expression himself than by letting the computer do it. 


Therefore, a computer-assisted instruction course was written in APL to teach familiarity with the 
terminal, fundamental computing principles, and the use of definition mode and system commands. This 
has proved a highly successful method of introducing computing, and gets any casual user started. This 
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course, augmented by a short television tape showing such details as how to switch the terminal on and 
load and start the teaching program, allows large groups of users to have access to the power of the computer 
without supervision and at their convenience. 


A problem with developing the computer-assisted instruction course was that control cannot be maintai- 
ned while the student is defining and modifying functions or is allowed freedom to experiment. This is 
important in the light of new trends towards experimentation in computer-assisted instruction which could 
become a major application of APL systems. 


One of the observations we have made is that the majority of users are reluctant to learn or use system 


commands. We feel that this is because system commands involve new computer concepts and are not part 
of the APL language. The rest of this article contains some ideas for the minimizing of these problems. 


THE EXECUTE OR UNQUOTE PRIMITIVE 


The execute primitive has been talked about over the last few years as a possible extension to the APL 
language. It is a monadic primitive which takes a character string argument and executes it as an APL 
expression. The symbol usually associated with this primitive is € (EXECUTE). 


For example: 


У, 


6.25 
с'а" 
12.5 
Р+е'1234.5' 
P 
1234.5 


It can be seen from the last example that < can be used to convert strings to numeric values. 


Macro-Expansion 


Coding can be shortened for recurring expressions through substitution and then use of the execute 
function. For example: 


Aec'Bx2:Q|R' 


A EQUIVALENT TO  25xBx2*Q|R 
All the facilities for character manipulation are now available for modifying APL instructions: 
25xe244 
в EQUIVALENT TO 25х2:21Р 
Passing of arguments by Name | 

When the substitutioa is applied to arguments of defined functions there is an equivalence to the facility 
in Algol of passing arguments by name to procedures. A major advantage of this is the ability to define 


functions which modify the values of variables, the name of which does not have to be known as it can be 
passed as an argument; 


12 


July 10, 1970 - Vol. 2, No. 2 /93 


VF X 
111 
[91 ex, СГ: 14Р" 
[10] У 

F 'NAME' 


In the above example, line 9 will be equivalent to: 
NAMELIi;J]-P 
Expressions as well as names can also be passed: 


VF Х 

[1] 9+0 

[2] 2xeX 

131 +(100>@+@+1)/2 
v 


F 'Bx2:Q|R' 
Line 2 in the above function will become 
2xBx2:Q|R 


Another application of the above facilities is in the manipulation of lists, where three parameters need to 
be passed — the list, an index and the item to be added. In the following example LIST is a character 
string containing the name of the list, ITEM is the character string and the index for the list is the name of 
the list preceded by I: 


v ITEM ADDTO LIST 

[1] eLIST,'-',LIST,',ITEM' 

[2] e'I',LIST,'-I',LIST,',o',LIST 
У 


'ABCDE' ADDTO 'NAMELIST1! 


will evoke a function equivalent to the two lines: 


NAMELIST1+NAMELIST1,'ABCDE' 
INAMELISTI+«INAMELIST1,pNAMELISTI 


Clearly there is a substantial saving in storage by passing arguments and results by name instead of value, 


Arrays of functions 


It is also possible to get the equivalent of subscripted functions. Instead of AL 1],A£2] and A[ 3] ‚ А1А2 
A3 could be used. 


VFUNCTION 
[1] I+1tP 
[2] e'4',(C'123" )[I] 
Thus, lists of functions can now be processed as well as lists of characters. 


Both facilities are very useful in the production of computer-assisted instruction courses. 
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Equivalent simple defined function facility 


If the conventions of APL/360 interpreter are followed and the argument of the execute function taken 
as being equivalent to an instruction line then whether or not an explicit result is returned depends upon 
whether the last operation execute performs is a specification, For example: 


30 explicit result 


Bre РЕ; no explicit result causes 
VALUE ERROR 
6*te'P«12x2' VALUE ERROR 
^ 


To overcome this value error, all that is necessary is to enclose the specification expression in brackets. 
6te' (P*12x2)' 


If a character string contains return symbols, then the result will be a vector of explicit results which 
should be conformable. That is either all scalars, or arrays of the same dimension: 


6+eA<!(P<12x 
:2 


2) 
(QePi2)' 


30 18 


In the above example A is equivalent to a defined function that does not have any arguments or require 
local variables. 


There is an inconsistency in APL in that working from right to left really implies taking the last instruc- 
tion first. 


Input 


The EXECUTE function already exists in part in the language in the form of the Quad symbol. An in- 
coming character string from the terminal is executed as an APL expression and the result assigned to the 
instance of © . For example: 


ваб 

fi: 
10x4 

46 

With execute implemented, some of the functions of Quad (T) can be duplicated by < For example: 
5+0 

10x4 

46 


lt would be useful to have a primitive that accepts character input but does not have to begin on a new 
line. For example: 


THE CAPITAL OF FRANCE IS + 
or 
THE + OF FRANCE IS PARTS 


where input would commence where the + sign is. (1t might also be useful if the backspace, linefeed and 
attention symbol were formally part of the language). With such a primitive and the execute function it 
would also be possible to simulate all the present functions of Quad and Quote-Quad in APL/360 apart from 
these two major exceptions: 
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(1) Character string input to Ü сап have а retum symbol in the string. 
(2) Language errors and system commands cause an automatic request for further input. 


The first cannot be overcome unless the end of message function and return symbol are separated, then 
several lines of text could be input under Quote Quad and terminated by an end of message. 


The second is because О executes the character string and does not complete its function until 
a value is obtained. For example: 


ü 
D: 
2:0 
DOMAIN ERROR 
2:0 
A 
D: 
If e [was used the error would be in the execute function. For example: 
en 
2%0 
DOMAIN ERROR 
е" 
A 


This is a useful property of Quad. To clarify its double function the symbol В could be used. This 
frees D to be used for input without an enforced return. Therefore, input from the terminal can 
be regarded as character strings that are no different from stored character strings. 


The execute function invokes a recursive entry into the interpreter and should provide all the properties 
of the interpreter, which thus can be essentially simulated by this function: 


VEXECUTION 
C1] <D 
[2] +1 

V 


The superimposition of a different execution mode is now easily achieved. For example in computer- 
assisted instruction one may wish to give a student full use of the terminal, but to examine his entries first: 


VSUPER 
[1] Реп 
[2] >(СНЕСК P)/1 
[3] еР 
[5] +1 
v 


Function CHECK could answer question or provide a remedial branch of a teaching program if the 
Student's entry required it. 


Defined Function Commands 
Another use of execute would be the automatic definition and modification of functions. For example, 


a function to simulate definition mode and examine any wrong student entries would be: 
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(prints line number) 

(new use of U prevents forced return) 
(checks correct entry) 

(examines incorrect entry) 


2+0 
*(A/X=( (pZ)o2)/6 


TUT МАМЕ ТЕТ, ТД, (adds new entry) 
tat F '6' (input 1 2 is now awaited) 


System Commands 


System commands can be invoked in APL expressions and in particular in defined functions. For example: 


VPILE X 
€' )SAVE i bt 
e!) 
= ')СОРУ 
e')WSID 
€' )SAVE 
s 


á 


(Part 2 of this article will deal with ideas on integrating system commands into the language.) 


CORRESPONDENCE 
60 Character representation of A. P. L. Symbols - this issue of Quote — Quad 
Some brief comments: 


(1) The currently valid A. Р. L. symbol ‘ : ' is missing. 

(2) A comment on Page 2 leads me to believe that the 60 character set was based upon A.P.L. as implemen- 
ted at a certain time. Í think any 60 character set developed should be extendable as the language is ех- 
tended. For example, if a new function were implemented in A.P.L. and it happened that monodic ' = 
was a good descriptive symbol, then at least 7 character pairs become legal as single characters. 


1 think the problem is worth solving. Anyone who attempts to produce a batch A.P.L. facility will have 
to face it. For the reasons stated above I am in favour of an operator representation as in APL/1130 even at 
the expense of symbolism and readability. 


James A. Brown, 
Systems and Information Science Program, 
Syracuse University, Syracuse, N.Y. 
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Dear Sir: 


This is more a letter of appreciation than anything else. We currently receive your Quote - Quad and if 
encouragement is of any use — we encourage you. 

We have a model 67, on which we run MTS (Michigan Terminal System), into which the University of 
British Columbia have written a stripped down DOS interface, which supports DOS APL. 

There exsists a small enthusiastic group of APL users here, though it is by no means one of the major 
languages used. Its devotees are, however, increasing in number. 

We hope to hear of the results of the efforts at Goddard Space Flight Centre and follow the development 
over there with interest. 


Yours faithfully, 


R. Broughton, 

Computing Laboratory, 

Claremont Tower, 

Claremont Road, 

NEWCASTLE UPON TYNE NEI 7RU 
ENGLAND. 
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ALGORITHMS 
Number 23 CARD DEAL 


R. A. German 
University of Waterloo 
Waterloo, Ontario, Canada 


У Ve-DEAL 
[11 V<(, 23 3 & 2 16 13 p 10 ө.,4(44)9,5144152252)/4160"АКО7798765432! ‚13р' " 
[2] V<(,Q 4 З о 77 0 6)%(,8 13 2 p 0 8)0[1J12 26 p 1 32 ü & 3 2 b 13 pV,10up! ' 
v 


98/ APL QUOTE-QUAD 


Number 24 DEAL FOR 1130 


Lyon D. Yarbrough 

Arlon Corp., Lakeside Office Park. 
North Ave. at Rt 128, 

Wakefield, Mass. 01880. 


Claimed to be more elegant, readable and 10% faster than John Lauer’s version in January’s Quode- 
Quad. 


[1] 

£2} 

[3] T 

C4] TOX»pR)/L 
V 


Number 25 CHARACTER AND NUMBER COMPARISONS 


John F. Sowa, 

IBM Systems Development Division, 
Box 390, 

Ploughkeepsie, New York 12602 


Many experienced users of APL are not aware that comparisons of numbers and characters are legal in 
APL/360. The function TYPE uses such a comparison to determine whether data is character or numeric 


July 10, 1970 - Vol. 2, No. 2 /99 


У В+ТУРЕ X 
(11 Ве! '=1+00X 
ç 


TYPE 'FOUR SCORE AND SEVEN YEARS AGO! 
ТУРЕ 3 2p'CAT' 
ТУРЕ 89 0 1 


TYPE 3.14159 


The function SIZE illustrates a practical use of TYPE. For any data array, SIZE computes the minimum 
number of bits used to represent the data in the System/360 implementation of APL. 


У BITS+SIZE X 
[1] >CHARTıTYPE X 
121 BITS+pX+,X 
[3] *>uxv/A/Xo.z 01 
[4] BITS+<4BITS<x32x1+((2*31)<[/X)v((=2*31)>L/X)vv/X=LX 
[5] >0 
[6] CHAR:BITS+8xx/pX 


SIZE 'FOUR SCORE AND SEVEN YEARS AGO‘ 


240 

SIZE 3 2р'САТ' 
48 

SIZE 89 01 
96 

SIZE 10 
0 

SIZE 3.14159 
64 

812Е010101 
6 

SIZE 2 3 4 0 5 p99 
0 


Number 26 TRIGONOMETRIC FUNCTIONS FOR 1130 


James J. McDonell, 
O’Brien and Gere, 
SYRACUSE. 


Their purpose is evident from the name of each function, the range and domain of which is the usual 
mathematical one. 
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[i 


[1 


É 


ча сал ros 


) 


- 


ГЭ 


(81 


регата 
өзсоакоме 
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V 2«ЗАр X 
Ze(Xx PI):180 
9 


Ч 2+*DFG ZX 
3<(180хХ):РІ 


7 26510 ХА Рс 

C-(2xPI)|X 

L-((C(2xPI)-C)x (CCX2xPI) (C2 3X PI 32)) ) F( CC- PE )x (CCS3x PT #2 AC CoP 
)eCCPI-C)x (CCS PI AC C>PIE2)) ) €Cx CCS PI 32) 

2-Ііхһе1%4<0 

Veet 

26244 

Ae(C A )*CH-1)) xCD*(2xil) -1):1(2xU)-1 

86244 

-uxivAzv/?2zZ 

Ze(Zx(CO20) CCS PI )) ) -EX (CCX2x« PI )ACC» PI) 
7 


7 2=605 Х,їүЛ:8:0:й 
C+<(2xPI)| X 
L<(((2xPI)-C)x((C<S2xPI)A(C>3xPI+42)))+((C-PI)x((Cs3xPI+2)A(C>P 

-С)*((65Р1)^(С>РГ:2)))+Сх(С5РГ+2) 

Z<X=X+A+1U<0 

21:2+2+А 

NeN+2 

A*CCA 88:2) x LAR) EIN 

3<Z+A 

>Li1xıviv/BeZ 

Z<(Z<x<(((C2O0)A(C<SPI+2))v((Cz23xPI:2)A(Cs2xP[))))-Zx((C>PT+2)A(C 


<3xPI+2)) 


1 2+2ж(С#РГ+2)^(С=ЗхРГ+2 ) 


V Z<PAH X 
2-(51! X)5COS X 


Я Z+ASIN XN; COEF; TER"; 
Z4XxKV+COLP AFTER IO 
Dedi 
СОГР«СОГРх(142х(0-2))8(7242хЇ) 
аратар" 
PpERU<(((X*(2xD)-1)1((2xW)-1))xCOEF)x(1>]2X) 
B+Z+ TERM 
2x vf / Вай 
2<2+( 1+PI+2)x(1=|] X)xxX 
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[1] 


(11 
121 
131 
[s] 
151 
ху) 


[6] 


[7] 
181 


0 
0 


0,0 


0 
188 
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1 
0.8 


0 


0.0 
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9 X«ACOS А 
Ä+(PI+2)-ASIN A 
v 


V Z+ATAN X;7;B;N 

24(Хх1»1Х)4(1.5708х1« | X)xxX 

Ne1+T+o 

2+2+7 

N<N+1 

TeCCCC 388-1) x (X4(2xN) -1)) £((2xN)-1)) x(12 12) ) €CCCT1 48-1) 4(((2 
-3)x((Xx(1<|X))+(12|X))*((2x8)-3)))x(1<i 
ХЭ) 

В+2+7 

*3xiv4/BzZ 

ZeLe((PItu)x1z|X)xxX 
M 


x 
30 60 90 120 150 180 210 240 270 300 330 360 390 42 
450 480 510 

Y 
01 0.03 0.1 

RAD X 
0.523599 1.0472 1.5708 2,09439 2.61799 3.15159 3.66519 4, 
79 4.71239 5.23599 5.75958 6.28318 

5.80678 7.33038 7.85398 8.37758 8.90118 

DEG RAD X 
30 60 290 120 150 180 210 240 270 300 330 360 390 42 
450 480 510 

SIN RAD X 
0.5 0.866025 1 0.866025 0.5 0 70.5 "70.866025 ^1 70.8660 
70.500001 0 0.5 0.866025 1 

0.866025 0.499999 

COS RAD X 
0.866026 0.5 0 70,5 70.866025 71 70.866025 70.6 0 0.5 
66025 1 0.866025 0.5 0 70,5 

70.866026 

TAN RAD 0 30 45 60 120 135 160 180 
0.57735 1 1.73205 “1.73205 71 70.36397 0 

DEG ASIN Y 
572958 1.71913 5.73917 

DEG ACOS Y 


89,9427 88.2809 84,2608 


9 
.65 


45 


DEG АТАН O .1 .2 .3 .4 .5 ,6 .7 .8 49 
5.71059 11.3099 16.6993 21,8014 26.5651 30.9638 34.992 38 
98 41.9873 
DEG ATAN 1 5 10 
78.6903 84.2896 
DEG ATAN 100 1000 10000 


89,4273 89.9429 89.9945 
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DEG ASIA SIN RAD X 
о 30 59.9997 90 59.9997 30 0 730 759.9997 790 759.9997 
30.0001 0 30 59.9997 90 59.9997 30 

DEG АСОС COS RAD X 
о 30.0003 60 90 120 15C 180 150 120 90 60 30.0003 0 30 
.0003 60 290 120 150 


АТАН .933 5 
DOHAIN ERROR 
АТАП 51 TeCCCCC 1*0-1)x(X*(2xNW)-1)):((2xN)-1))x(1>|X))+((( Td Wed EC 
(2xi)-3)x(CXxC1«|X)) C121] 0)) *((2x8)-3)))x(1 
<|X)) 


x 

0.999 5 
т 

0.0178934 ц.ч15316 38 
з 

0.793667 1.3734 
g 

28 
+0 

0.793667 1.3734 


CALENDAR OF EVENTS 


APL AND SHARE XXXV IN MONTREAL 


A recent mailing of the Preliminary Agenda to representatives of SHARE installations seems to indicate 
a lack of activity in the APL Project in that no closed meetings are scheduled. This is not the case. 


Due to some confusion over the listing of closed project sessions in the agenda there are activities that 
did not appear in the preliminary version. 


Fear not. We will be there! I have asked for 5 closed sessions — 2 Monday afternoon, 2 on Tuesday A.M. 
{including a presentation by L.P.A. Robichaud, Laval University, on using the present APL for text proces- 


sing), and a summary session late on Tuesday afternoon. 


Open session activity includes a talk by Adin Falkoff on Thursday morning and a presentation by Larry 
Breed Thursday afternoon. 


In addition the APL Project will man the Project Open Session Tables (POST) on Wednesday 19 August 
1:30 — 3:00 P.M. and Thursday the 20th from 8:30- 10:00 АМ. 


Please see the final agenda for all details. 


Garth H. Foster 
Manager, SHARE APL Project 
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APL CONFERENCE 


On June 19, 20, 1970 a conference on APL was held at the Goddard Space Flight Centre in Greenbelt. 
Approximately 150 attendees gathered from all around the U. S. and Canada (with a few Europeans)to 
discuss means of controlling the rapid growth of APL. As expressed by the Co-Chairmens Drs. Garth 
Foster of Syracuse University, C. A. Wogrin of Massachusetts University, and Mr. Cyrus Creveling of 
Goddard’s Information Processing Division, there is a need to try and prevent a number of dialects from 
being created in the present expansionist phase. Following nearly two days of lively discussions concern- 
ing the various system enchancements proposed during the conference, the conferees voted for five from a 
list of nine nominees to form a founder's committee to draft a constitution for а new APL organization. 
This will meet again later in the year to form a new APL users group separate from the current entity in 
Share. 


Several Goddard workers users presented talks showing the need for providing means for entering large 
data bases into APL from magnetic tape, punch cards, etc., in addition to the keyboard now available. 
Dr. George Ludwig, described the output from scientific satellites, currently totaling 400 million data per 
day. Dr. James Vette described the archival and retrieval aspects of the National Space Science Data 
Center, while Dr. James Kinsey presented a paper with Messrs’ William Mish and Peter Bracken on the 
problems associated with manipulating and interpreting data in large sets. 


There were several papers describing specific system proposals, some already existing, which allow 
APL users to assemble and work over large data files in APL, or in extension to APL. Characteristics of 
systems in marketable form were presented by Al Rose and Larry Breed (now) of Scientific Time Sharing, 
William Rose of Agoranomic Systems, and Jerry Enfield of The Computer Co, Richmond Va., etc. 
Speakers from Burroughs and from several Universities including Maryland, Massachusetts, Florida State, 
described additions to APL designed to circumvent present shortcomings of APL/360 IBM’s marketed 
system. 


Notable by their presence and by their lack of eagerness to present their own system proposals were 
Dr. Kenneth iverson and Adin Falkoff of the IBM Watson Research Labs., originators and developers of the 
original APL. Although they have been rumored for years to be considering the augmentations discussed 
in the conference, they had only announced through their company spokesman, that they had nothing to 
announce at this conference. By the second day of the meeting they were moved by the aggressive dis- 
cussions of former colleagues Al Rose and Larry Breed, and Dr. Iverson’s son Eric (of LP. Sharpe, Toronto) 
to make some comments on the day’s discussion. This mainly implied that they had the matter under 
consideration and, when the time came, would offer a definitive solution. 


To this reporter, the most notable lack of most papers given was their failure to provide an analytical 
approach to the various ways in which file structure and I/O can be added to APL with existing notation, 
or to justify why in some cases additional symbols were added. Also little information has been conveyed 
as 10 the problems of machine efficiency which will become more important in a production environment, 
than at present where most APL programs are conversational and use small amounts of computer time, 
Practical processing of large files will require emphasis on this aspect, after conceptual problems are solved. 


Until the next meeting, it seems certain that development of APL on all major computers will be pressed, 
with energetic development by number of investigators on both IBM and other machines. The tone of the 
meeting strongly indicated that APL advocates although differing in minor ways in their approaches are 
earnest in their attempts to bring APL into a position to challenge Fortran and PL-1, the present leading 
programming languages. 


Cyrus J. Creveling 


560:CJC:ld 
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То the Readers of the Quote-Quad: 


As you can see by the enclosed articles, activity for a formalized 
APL group is definitely under way. Meanwhile in order to keep the 
information flowing, we are going to have to ask you to support the 
Quote-Quad until it can become a part of the group's activities and 
Supported accordingly or until it is no longer needed. 


Thus, ! am asking you to fill out the form below (or a copy thereof) 
and remit $3.00 U.S., if you live in the United States, Canada or Mexico 
and $6.50 U.S. if you live elsewhere. That should cover 5 issues 
(planned between now and the end of the year) of approximately 24 pages 
(12 sheets), mailed AIR MAIL. With no advertizing and with most of the 


cost in mailing, this should not seem out of reason. 


Make drafts out to the APL Quote-Quad and please remit in U. S. funds. 
Those of us involved in putting this newsletter together promise to make 
the money go as far as possible, extending subscriptions if over estimation 
occurs due fo fewer pages per issue and to turn over all excess funds to 
tne formal APL group upon its creation. 


Garth Foster 

101 Link Hall of Engineering 
Syracuse University 
Syracuse, New York 13210 


—————————»—JAA  . _ C 4.0202. 


Continue to send me the APL Quote-Quad. 1 am remitting herewith 
the following: 


777 $3.00 U. S. (AIR MAIL, U. S., Canada & Mexico) 
(Surface Mail elsewhere) 


77 56.50 U. S. AIR MAIL elsewhere 


МАМЕ: 


ADDRESS: 
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EDITORIAL 


There has been a good response to the request made for articles for Quote-Quad. It is hoped that this 
trend will continue. This may result in an increase in size or frequency of issue. 

There seems to be considerable reticence on the part of IBM on releasing any information concerning 
APL. This was evident at SHARE. Also, there has been no material other than a few algorithms 
contributed to Quote-Quad by IBM. 


With the recent acquisition by Lakehead University of a Xerox machine which can reduce the size of 
copy we hope to be able to include more APL text. We also hope this will improve the readability of 
articles. 

In order to give some background of what is happening on the APL scene, Quote-Quad includes the 
section ?/M for random comments. So that this can be kept up-to-date with a wide cross section 
of activity, we would appreciate it if readers would send information concerning their own or their 
institution’s activities. 
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Proprietary Computer Systems Inc .. California and the Computer Company of Richmond, Virginia have 
affiliated 10 provide what they claim to be the first nationwide APL time-sharing network. They offer ext- 
ensive services including a file management system. Included in the affiliation are Computer Innovations, 
a Chicago firm, and APL Services, іпс.. of New York. Together the four companies now provide APL 
service in Boston, Chicago, Los Angeles, Miami, New York. Norfolk, Philadelphia, Princeton, Richmond, 
San Diego, Santa Ana, Palo Alto, San Francisco, and Washington, D.C. 

1. P. Sharpe Associates Ltd.,Toronto. has now extended the services from its Toronto-based 360/50 to 
Los Angeles and San Francisco, Their file management system jointiy developed with STSC is described in 
this issue of Quote-Quad. Other extensions are a multiple copy command and a TABS command. 

Xerox of Canada Ltd. have developed a financial forecasting and budgeting package. Enquiries should 
be directed to Ron Seaberg, Manager of Financial Planning and Analysis, Xerox of Canada Ltd „Toronto. 

The Orange Coası Junior College District has an extensive commitment to Computer-Assisted Instruct- 
ion through APL and is interested in communicating with other institutions doing work in this area. A 
reprint of their CAL/APL author's manual by Thomas Macauley is now available from the Office of 
Educational Development, Orange Coast Junior College District, 2701 Fairview Road, Costa Mesa, Calif- 
EUH 92626 at a cost of $1.00. Functions described in this manual are available to anyone sending a 1600 

tape. 

Tom MeMurchie would like an answer to the following question: Why is the expression A(BXC] a 
syntax error on APL/360? The array АТВ1 does not require parenthesization when used as the left 
argument of any other APL operation? 

Louis Robichaud at Lava! University has successfully used a file management system for University 
registration with a significant increase in programming productivity. 

The lounders committee appointed at the NASA Conference to investigate the founding of a formal 
APL users organization expects to have its first meeting early in October. Also, no formal site or date has 
been set yet for the next APL Users Conference. 


REPORT OF THE APL SHARE CONFERENCE 
(Based on the session report notes) 
Closed Session 
This was chaired by Garth Foster who opened the session with a discussion on future directions in the 


APL Language and reviewed the past meetings and conferences, the role of the APL Newsletter, and new 
publications in APL. 

Mr. E. Vernon Griffith, І. B. М. АРІ. Product Administrator replied to resolution 70-001 passed by the 
APL Task Force in March which had requested I. B. M. to make available all information on the formal 
definition of APL/360. Mr. Griffith Stated: 

"We agree with the need expressed in the resolution for a formal definition of the APL language. We 

intend to comply with the request. 

We now have a project underway to publish a formal definition of APL. This will be in the form ofa 

collection of APL functions similar to the formal description of System/360 that was published some 

years ago. 

Our present objective is to have a first draft of this document completed during the 4th Quarter of 1970. 
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Until this document is completed, the SHARE APL Project should find the APL/360 Reference Manual 

by Sandra Pakin and published by SRA, Chicago, a useful supplement to the APL/360 Users’ Manual.” 

Mr Griffith also spent considerable time in reviewing I. B. M.’s June 30th announcement about the 
APL/360 program product which will be supported under Releases 18 and 19 OS/MVT, Release 19 of 
OS/MFT and Releases 22 and 23 of DOS. Language extensions are in the area of catenation matrix 
division and base and encode. 


Catenation joins two variables along an existing coordinate. Syntax: (4,118 or A,B where 
д, B, and І are APL expressions, A,B is short for A.{{/(1004),1p98)8 except when 
A and Я are both scalars (strictly speaking, two scalars can be laminated but not catenated). 
The extension of catenation to higher arrays has not changed its definition for vectors and scalars. 

Assume first that (004)7525. Then catenation requires (IeippA) A А/(ТжіорА)/(рА)ғоВ 
The dimension vector of the result is the same as the arguments except thatthe (f/ıT)7# coordinate 
is obtained by adding their corresponding coordinates and is used to distinguish between elements from 


A and elements from в. For example, in origin 1, 
if 04-93 ц and р8++3 8 and R<A,[21B then pR++3 9 
and Ван and ВГ;4+152++В 
I (ррА)=орВ, then either 1:1(орА)-арВ or v/0=(ppA),poB is required. 
Thus: 

If в, say, has one fewer coordinate than 4, then for conformability (pB)«e-(I*:004)/c4. 
anda unit (f/ır)ra coordinate is inserted. In the above example, if pA were 36% 
instead of з s, then the operation 4,0218: would be tantamount to А,(213 1 508. 


Note that rows and columns can now be added 10 matrices. 


If B, say. is a scalar, then it is extended to have the same dimensions as А except along the 
(48422111 coordinate, on which it is given unit length. In the original example, if B 
were a scalar, then the operation 4,1278 would be tantamount to A,[2)3 108. 


Lamination joins two variables along а new coordinate, Syntax: А,[Г)8 ог A, В, where 4,3 
and I are APL expressions, For A and 8 сайт, 4,8 yields A 2-element vector, as 
before. For all other cases the form A,LTIB must be used. 


Assume that (орА)=ор8, then lamination requires — (I«lI)^(I» 1«i1)A(I«18[/1p04) A 
{рА)^. 208 The operation inserts, after the — (f /ALI)TH coordinate, a new coordinate, 
which always has the range 12 — andis used to distinguish between elements from А and elements 
from 8. Forexample in origin 1. 


If oA*-08-*3 4 and P+A,[1.6)JB then oRe«3 2 u and #(;1;2++А and ВГ;2; +8 
When (poA)#ppB, conformability requires v/O=(poA),poB. If В, say, is a scalar, then 
the operation 4.11.618 would be tantamount to А.[1.61 (рА)р8. 


Matrix division has been implemented as а primitive function. It can be used for inverting matrices, 
solving sets of linear equations, and finding least squares solutions. If 2++роА and (itpA)z1+04 
and у/1 2=pp8 and(1+pA)++1+pB and Х-вал (Divide overstruck by Quad) then ppx++pp2 
and +/((Ar.xX)-B)*2 is minimized. 

X+BA is tantamount to X+I8A where І is ап identity matrix of order 1#рА, 
thus monadic В yields an inverse for a square matrix (or а DOMAIN ERROR, if the matrix is not 
invertible). 


1 and T operate on arrays. оВібе+(71+0В),1+0С AND pBTCe*(0B) ,oC. 
For віс and the inner product of. я and C. B and С  areconformableif 2 
or C isa scalar, or ЕГІЗ and itot are equal or one of them equals І. In the 


last case, the corresponding argument is extended by replication to make the agruments of equal length 
along this coordinate. 
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1. B. M. will soon be releasing a general information manual, and are preparing an A. P. L. Bibliography. 
The APL Project requested that an investigation be made into the possibility of a non-disclosure agreement 
to enable confidential information to be given to the members of the closed APL Project. 

The meeting evaluated and arranged in order of priority the features and facilities desired by members. 
The following priority list of requirements will be presented informally to I. B. M. for their reaction: 

ї а} A large data base facility for APL 

b) Communication between APL and other systems for data transfer. 

2 Modifications of Transmission Control Units for support of terminals of varying speeds on the 
same port 
Implementation of the "Execute" function. 

A common front end for other teleprocessors. 
A facility to trap error messages. 

An APL compiler. 

À faster interpreter. 


0 0 bo 


APL under HASP, LASP and ASP, APL in LCS and 1, В. M,’s possible adoption of user modifications 
were also discussed. 

L. Robichaud with Р. H. Fortin from the University of Laval gave a presentation of their implement- 
ation of a “globule” (е) function required particularly for the list processing package they have developed. 
It can: 

1 Execute system commands. 

2 Give information on disc operations. 

3 Allow list functions for values of variables, index in a list, names in a list, ete. 

4 Be used as an "execute" function. 

New Mexico State University offerred to investigate the possibility of their acting as a central clearing 
house to: 

1 Catalogue programs. 

2 Maintain lists of packages. improvements, and lists of people to whom these had been sent. 

3 Mail tapes by request. 


Open Session 


Adin Falkoff spoke on teaching, system design and the production of applications packages. He claimed 
that more interesting than its straightforward use for CAI, was the use of APL in harnessing the computing 
power of the machine to study the properties of mathematical operations on an interactive basis. He pointed 
out that in system design, algorithms could be coded in APL and studied at length before recoding in an 
appropriate language. Alternate formulations of a problem solution can be used to study the process. The 
speaker stated that in the area of packages, it is possible to maintain complete control over the input from 
users terminal to allow for syntax checking, spelling errors and the like in the use of the package. He 
stressed the use of structural information of the variables to provide additional information as for example, 
in the VS and AND functions in library 1 PLOTFORMAT and by a checking account package which was 
shown, 

Larry Breed (S. T. S.) spoke on the file subsystem he jointly developed with Eric Iverson (I. P. Sharpe 
Assoc.) He described the design goals and functional characteristics of the system. 

Al Rose (S. T. S.) demonstrated a shared file application of this file subsystem in an airline seat 
reservation system. 

(An article by Larry Breed on the file system is included in this issue of Quote-Quad. The seat 
reservations algorithms have been held over to the next issue due to lack of space - Editor). 
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THE APL PLUS FILE SUBSYSTEM 


Lawrence M. Breed 
Scientific Time Sharing Corp, 


Introduction 

The APL PLUS file subsystem was designed with these objectives in mind: 

* Operation with APL/360. There are no extensions or changes to the structure of the APL 
language, and a minimum of new rules. 

* Efficient operation with arrays. Data transfer is in terms of APL arrays of variable size, and access 
to data may be sequential or direct. 

8: Executable access. All file manipulation is done through executable АР]. programs, without 
recourse to extralingual “system commands”, 

* File sharing. A file may be shared between users, with the allowed forms of access controlled by 
the file owner. System facilities prevent the occurrence of deadlocks among programs sharing 
common files, and give a designer the tools he needs to avoid race conditions. 

5 High reliability. Critical operations are extensively checked against software malfunction. A 
system crash can cause little or no loss of file data; data written more than 15 seconds before a 
crash is always preserved. 


File Structure and File Operations 

A file is a sequence of components: each component is an APL array of any type and any number of 
dimensions. Components are referenced by sequential integer component numbers. File naming follows 
the same rules as workspace naming; unlike workspace names, however, file names are APL character data 
that APL programs can work with. 

Files are accessed through a single new primitive function, but for user convenience several generally- 
applicabie (and more mnemonic) APL functions are provided that employ the primitive. These functions 
typically take array arguments or produce array results; for instance, the FLIB function takes a library 
number as argument and returns, as a result, a character matrix in which each row holds the name of a 
file stored in that library. 

All manipulation of file data is done by referring to the file’s file number. an integer that is established, 
before the file is used, as being associated with the file’s name. The FTIE function (for oid files) or the 
FCREATE function (for new files) establishes this correspondence. For example: 

“100 MAILBOX" FTIE 5 
indicates that henceforth any reference to file 5 is actually referring to the file named 100 MAILBOX, 
File functions that perform data transmission are: 
FREAD fileno, n Returns as result the value of component n of file fileno. 
value FAPPEND fileno Builds a new component, with the left argument as value, at the end 
of file fieno. 
value FREPLACE fileno, n Rewrites component n of file fileno with the left argument as value. 


In the FREPLACE operation, the new value may be an array of any size; it need not fit within the 
space reserved for the component's old value. 

Other functions exist for dropping components from a file, deleting a file entirely, and determing the 
status and size of files. 

In a host system multiprogramming environment, other tasks may have access to the file subsystem just 
as if they were APL users. This makes it particularly easy to run file conversion programs (for instance, a 
file to 1403 utility), and gain access to non-APL data. 


File Sharing 
When a file is shared, one or more persons may be accessing it simultaneously. 


When a file is shared, onc or more persons may be accessing it simultaneously. The particular forms of 
access (read, append, replace, etc) granted to a particular user are controlled by the file owner tnrough an 
accress matrix. Different persons may, of course, be allowed differing degrees of access. 


As an example, a file could be built of student responses to a computer-supervised examination. In the 
file's access matrix, each student would have append-only access, and the instructor would have access to 
read, Because appending (executing the FAPPEND function) is a race-free operation, the programs that 
record student responses can proceed quite independently. Of course, the instructor must be able to 
determine which student wrote which component; for this purpose the FRDCI (“read component info") 
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function returns the account number of the person who wrote a component and the time it was written, 


If several persons are concurrently updating components, race conditions can of course arise. The 
FHOLD function provides the necessary synchronization to avoid them. If one user has executed an 
FHOLD for one or more files, any other user executing an FHOLD for any of the same files has his 
program suspended until the first user releases his hold. At that time the second user's program may 
proceed, (Notice that the presence of a hold does not interfere with other users’ nondestructive operations 
Such as FAPPEND and FREAD.) 

As an example of using FHOLD, suppose two users have a file designated as file 5 and are each 
executing this program for conversing between terminals: 


7 TALK 
1 11: FHOLD 5 
J U*FREAD 5,1 
2 Л PREPLACE 5,1 
83 01 
9 


If user А has executed line 1, user В will be suspended on line 1 attempting to execute FHOLD. User A 
will read and print component ! of the file (line 2), and will then replace component 1 by a line of literal 
keyboard input (line 3). Finally, user A will return to line 1. An execution of FHOLD automatically 
releases any previous holds, so user B's FHOLD is at last executed. This, of course. suspends user A. Now 
user В will see the literal input previously written by user A, and B's keyboard response will go to A on the 
following cycle. 


This example, aithough quite simple, shows how user programs may use the file subsystem to 
communicate belween programs and synchronize programs, as well as share a common data base. 

It should be pointed out that file-sharing facilities like FHOLD are tools that system designers can use in 
whatever way is appropriate for the job. Whereas some other systems have interlocks built into data 
transfer operations (e.g. "read with lock"), our file interlock mechansim van be used independently. For 
instance, a user can in general read or append to a file even though another user has an FHOLD in effect. 
If such overlapping access is undesirable, it can be avoided by using FHOLD's along with the FREAD or 
FAPPEND. However, where such strict interlocks aren't needed, the file subsystem doesn't impose them. 

Along with account numbers and access codes, the access matrix may contain file passwords. If such a 
password has been imposed by the file owner on a user, every access to the file by that user must include 
the password. 


A password can be used to control reading of a confidential file, as follows 


The file owner (or application designer) imposes a password on a user's access to the file. He does not 
tell the user this password, but instead gives him a locked APL function which supplies the password to an 
FREAD 

Using normal APL expressions. the function can limit access to particular file components, or to 
particular fields within a component. [t can even limit access to particular times of day, or in fact to any 
set of conditions that can be programined іп APL. 

Different passwords may be imposed for different file users (or groups of users). This makes practical 
the construction of information systems with many levels of access authorization to confidential data. 


Implementation Techniques 


The file subsystem was designed an modelled in APL, with the programs and a simulated disk stored in 
a workspace. For debugging the file subsystem was run in its own partition of DOS. This avoided the 
possibility of accidentally cancelling APL, and also permitted easy modification and reloading of the file 
subsystem without affecting APL operation. 

Extensive use if made of a coroutine-type program structure, Concurrent file requests are assigned to 
parallel coroutines, and can proceed relatively independently; since one coroutine can be delayed waiting 
for a event (such as ИО completion) without affecting coroutines executing other file requests, the 
coroutine logic is free of the typical complexities of bufferring and shared-resource scheduling. In effect, 
the file subsystem docs its own multiprogramming. 

Considerable effort was given to minimizing the amount, and restricting the nature, of file damage that a 
system crash can do, Disk allocation uses core and disk tables designed so that there may be u small loss of 
free disk space but no risk of allocating the same space twice. 

To reduce the number of disk reads and writes, the subsystem accesses data from in-core buffers, when 
available, rather than from disk records. Since this could cause information on the disk to be several 
minutes out of date, a timer routine forces a write of any buffer holding active file data after 5 to 10 
seconds of core residence. 
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Summary 


The file subsystem we have provided for APL/360 entails very few new concepts or new rules, making 
the file subsystem well suited to simple personal-file use. Moreover, like other APL functions the file 
operations and file organization are "primitive", in that they form a set of tools for building a wide variety 
of shared-file applications. 
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AN APE SYMBOL SET FOR MODEL 35 TELETYPES 


P. E. Hagerty 
Computer Science Centre 
University of Maryland 


The Symbol set described herein has been adopted at the University of Maryland for APL usage from 
Model 35 Teletypes. One of the primary considerations has been that workspaces should be inter- 
changeable, regardless of the terminal device used to create them. Since we may eventually support IBM 
2741 Communications Terminals, this effectively ruled out the use of reserved words, Instead, we have 
chosen to use the $ sign and (less frequently) the @ sign as flag characters. These characters were chosen 
because they do not belong to the standard APL symbol set. 

Flag characters always combine with the character at their immediate right to form a single compound 
character. Since it is the compound character which is stored in a workspace, appropriate output routines 
will produce the correct graphic regardless of the type of terminal from which the character was entered. 
As nearly as possible, the character which follows the flag has a simple mnemonic association with the 2741 
character it is supposed to represent, e.g. $R is used for the Greek rho, 


Alternate compound symbols have been defined for systems in which some of the characters one might 
naturally use are reserved for other functions. On our 1108, for instance, the characters + and ? have the 
same meaning as in G. E. Basic - delete preceding character, and delete line. They are intercepted by the 
communications handler and never passed to programs. Thus 3$ (for Store) and $Q are used instead. On 
a PDP-10, one could use + and ? with no trouble. 


Since teletypes do not have a backspace capability, it was decided to eliminate the underlined alfameric 
characters, These may never be generated from a Teletype. If an underlined alfameric appears in a 
workspace (created by a 2741), it will print on a Teletype without the underline. This might lead to a 
confusion on the part of teletype users between labels such as ABC and ABC (which are internally different 
but print identically), but we see no easy way to avoid this. The use of a flag character would cause 
confusion with compound operators, and might also produce excessively lengthy and unreadable lines of 
output. Our only reasonable answer to the problem is to warn 2741 users to avoid the underlined 
alfamerics when there might be an ambiguity and the workspace might be used from a Teletype terminal. 


Although the use of flag characters is very much “wired in” our APL processor, the particular 
combinations used are quite easily changed. We have already been through several iterations, and have 
experimented with an eye toward chosing combinations which are easy to use and remember. As we gain 
more experience in using the system, we may find that some of our choices were poor and change them, 
however the symbol set is at the present time quite stable, and it is highly unlikely that more than 2 or 3 
changes will be needed in the future. 


Definition of the Symbol Set 
The Teletype "Break" key is used for the "Attention" function. All alfamerics A-Z and 0-9 represent 
themselves. There are no underlined alfamerics. The remaining symbols are tabulated below. 
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Primitive Scalar Operators 
271 ТИ: Primary Alternate 
+ + 

x , 

D 1 

r sc 

\ $ 

. . 

. = 

) н 

Н 1 

т 1 R 
o т 

2, ы 

^ ЗА 

У # 

” a 

” eg 

< < 

s $ 

* $ 

> > 

2 $ 
Primitive Mixed Operators 
2751 тҮ: Primary | Altemate 
р iR 

а я 

t to ^ 
+ зятя 
i $u 

М т 

7 (А 

+ v 

\ \ 

х LA 

М з 

* e 

Ыы к 


Remarks 


Percent looks like divide sign 
Ceiling 
floor 


Similar appearance of vertical stroke 


Question mark (note 4) 
Trig functions 
Not. 


Remarks 


Tota 

note 1 

Reversal of + (note 1) 
Upgrade 

Downgrade 

Foduce 

Teduce along 18% Coordinate 
Expand 

Expand along lot Coordinate 
reverse 

reVerse along lst coordinate 


Xpose (Transpose) 
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PRIMITIVE MIXED OPERATORS (CONT.) 


2781 ТЇЇ: Primary — Alternate | Rearks 

‹ Е Hia 

Ы з Bese value 

т en Inverse of Base value 
Other Special Symbols 

2181 TIY: Primary — Alternate |) Remarks 

. $. 7-% becomes $..+ 

+ “ого 5 Store (notes 2, 4) 

> б Soto 

a л su {note 4) 

в м $ Hollerith WO (mote 4) 
r я SYstem function 

Е t negative constant (note 3) 
+ sr Function definition 

? ж locked function 

D $: 

LI м Mark Trace or Stop 


The remaining symbols (space, apostrophe, left and right parens and brackets, decimal point, colon and 
semicolon are represented by themselves. 


Note 1: The graphic for this symbol depends on the character set on the teletype being used. The 
standard ASCII graphic is a (carat): Teletypes used for Basic have +. 

Note 2: The standard ASCII graphic is _: Basic-equipped teletypes have <, 

Note 3: Negative constants cannot be denoted by a compound symbol. as this will cause either 
misalignment of the printout of arrays, or will require a terminal-dependent output formatting routine. 


Note 4: Neither + лог ? are ever passed to programs in ANIVAC 1108 EXEC 8 as inplemented at 
Maryland. In the Univac distributed version. the " is used as the "delete preceding character" signal, 
and left arrow is ignored. 


ERRORS AND FIXES IN THE APL/360 PROGRAM PRODUCT 


Lawrence M. Breed 
Scientific Time Sharing Corp. 


Roger D. Moore 
І.Р. Sharp Associates Ltd. 


The following is a list (not guaranteed complete) of APL/360 Program Product bugs which are known 
to us. Where a fix is also known to us, we give it. We have noted the host system where that is relevant. 


1. 


А + 6 690 
4(2;3] + 16°16 
412:31 


The problem arises because an attempt is made in indexed specification to avoid changing internal 
representation from boolean to floating-point. Any number “within fuzz" of zero is incorrectly taken as 
zero. 


Fix: not known. 
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2. 


CPU time, as produced by 121 can occasionally run backward because of partition scheduling, 
under DOS and possibly under OS. 


Fix for DOS version: in relocatable deck APLSMIBM, replace 12 bytes starting atx'0000a0* by 
x'4700,0000,4700,0000,^afd,5814'. 


Fix for OS version: same, except that the byte at. х'0000а9’ hasthe value — (APLQEND-APLMAP) 
/65536 . 


3. 
A message for the recording terminal may print while the carrier is returning from a keyboard input. 


Fix for DOS version: in relocatable deck APLSASUP, replace 2 bytes starting at х"002Ыс4! 
by x'bád86'. Also replace 2 bytes starting at x'002bc8' by x'bd86', 


Fix for OS version: working from the microfiche assembly listing for ASUP, replace the two references 
to NUBFA following the label SVRECM3 by NUBFA?2. 


Errors 4 through 9 have the potential for damaging the active workspace in a way that may give register 
dumps or even damage the APL system itself. We strongly recommend that the accompanying changes be 
incorporated 


4. 
The Take and Drop operators work correctly up to rank 9, but malfunction at rank 10. 


Fix: Іп relocatable deck APLSTAKE, replace 2 bytes of text starting at x'000052' by 
x'07b7'. This changes the limit of argument rank from 10 to 9. 


5: 


The Take operator has no check for fixed-point overflow when calculating the space required for its 
result. 


Fix: in relocatable deck APLSTAKE, replace 4 bytes starting at x'000190' Бу x''7f0,c!74' 
Replace 22 bytes starting at х'п07494' by х!5070,4100,1277,4700,с442,8776,с174,4110, 
0001 , à7£0,c^*^' , Patch the control section length to х'0004аа’. 


The Reshape operator has no check for fixed-point overflow when calculating the space required for its 
result. 


Fix: In relocatable deck APLSDRHO, replace 4 bytes starting at х'000064' Әу x'47f0,9076'. 
Replace 56 bytes starting at x'000080' by x'1¢60,1266,4770,934a,1217,4740,9354 ,4680, 
9076,5510 , 9380,47b0,9354,5010,409c,5820,d4048,8620,0002,5830 , 406с,58а0, 
93а8,05Ға,5010,40а8,4760,90с8". 
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The Expand operator has по check for fixed-point overflow when calculating the space required for its 
result. 


Fix: In relocatable deck APLSSLCT, replace 4 bytes starting at х'000400’ by х'45#0,сбаа', 
Replace 4 bytes starting at x'00041e' by x'45f0,c6aa'. Replace 4 bytes starting аі x'000534* 
by x'45£0,c6c0', Replace 40 bytes starting at x '0006b0' by х'4Ь#0,сбао,1255,47%0,сбьй, 
4244 ,078F,4110,0001,47f0 , с666, 5с20, 4040, 8620, 0020, 4710, с6Ь8, 1832, 0756, 0012. 


Patch the control section length to х" 000648", 
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The Reduce operator has no check for fixed-point overflow, and performs 24204 address airthmetic 
incorrectly, when calculating the space required for its result. 


Fix: in relocatable deck APLSREDU, replace 4 bytes starting at х'0000ее’ Бу х'4580,с482', 
Replace 4 bytes starting at х'00010с" by х'4580,с48а'. Replace 4 bytes starting at х' 90011с' 
by x'4580,c492', Replace 30 bytes starting at x'0001aa' by x'ü5fü,cüaa,5850,d01c, 
8555,0005,0100,5067,8a50,0003 , — 1e10,8a10,9003,40122,0900'. Replace 58 bytes 
starting at х'000488' by х!5602,5000,4780,с496,5с02,5008,4790,с496,5с00,4028!, 
X'1211,0750,c4a2,1255,8710,3000,U110,0001,07f0,c3e8 , 4324,c423,5510,c43e, 
8910,2000,074Ғ,47Ғ0,сйа2%. Patch the control section length © х'0004с2'. 


9. 


Not surprisingly, the same problem exists with the Inner and Outer Product. 


Fix: in relocatable deck APLSPROD, replace 4 bytes starting at x'0000ee' by x'45£0,cSau', 
Replace 4 bytes starting at х'000102' by x'45£0,c594'. Replace 4 bytes startingat х'00011е' 
by x'u5£0,c5a4’. Replace 4 bytes starting at x'00012a' by х'а5#0.с594'. Replace 4 bytes 
starting at. х'0001сс' by x'45£0,c59c', Replace 38 bytes starting at x'00059a* by x’5c00, 
4068,07£0,c5a8,5c00,d070,47£0,c5a8,5c08,b000 , 1211,4740,с552,1200,078#,4110 
0001,27£0,cüea', Patch the control section length to x'0005c0'. 


10. 


)CLEAn 

PIXEDSPACE + 3Eup'a* 
LARGE < |159 

о LARGE х 100 + 100 + 1200 


This sequence, in a 36K workspace, causes a register dump due to storage allocation errors while attemp- 
ting to convert a partially-computed result from fixed point to floating point. 


Fix: not known 


)CLEAR 
Хе18 
12 391112 «о? 
LENGTH ERROR , etc. 
15 
123 з 5 
жо 


This sequence causes a register dump due to failure to free the storage allocation for the operator sub- 
script when the length error is detected. 


Fix: not known. 


12 


When configuring for 76 or more ports, assembly of the APL Configuration module generates more 
than 100 entry points, exceeding an Assembler F table size and generating Assembler error message IJY095. 


Fix: add conditional assembly statements to the APLDEV macro to skip assembly to the ENTRY 
ATERM. & TCNT statement at or near card no. 70. 
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13. 


Certain WS FULL conditions, particularly in execution of the Take and Drop operators, cause a register 
dump. 


Fix: in relocatable deck APLSOCTL, replace 2 bytes starting at x'000922* by х'а?78'. Replace 6 
bytes starting at х'0009е8 "Бу х' 58#0,а174,07##', Patch the control section length to x’0009ee'. 


14. 


The APL Utility may encounter a fixed-point divide exception when printing an accounting listing. 

Fix for DOS version: in relocatable deck APLUMAIN, replace 4 bytes starting at х'000608’ 
by x'47£0,c514". Replace 20 bytes starting аі x'000a42' Бу x'8e00,0001,5d00,c62a,5c00, 
c6a6,8£00,0001,47f0,c0ed', 

Fix for OS version: same, except for addresses. Referring to the microfiche assembly listing of UMAIN, 
the first patch overlays an SR 1,1 and D O, MANHASH following the label ACST10; the second patch 
overlays an area labelled ACHD. Certain displacement fields will have to be adjusted also. 


15. 
If a program-controlled interrupt is missed while swapping a workspace, because the host system has 
masked selector channel interrupts for too long a period, APL may enter a one-instruction loop. 
Fix for DOS version: in relocatable deck APLSASUP, replace 6 bytes starting at х'00048а’ by 
х'4206,еа#4,0041'. 


Fix for OS version: not known, possibly not needed. 


16. 


In a system running with space for only two workspaces in main storage, execution ofa COPY command 
may cause APL to enter a loop in which workspaces are repeatedly read from the swapping disk but no 
user receives service. 


Fix: working from the microfiche assembly listing for ASUP, replace every reference to the symbol 
LOCKM by the symbol OUTWAITM only when it appears in an instruction following one of the labels 
СОРТҮО, COPTYONO, COPTYI1, COPTYI or DSZCOPY. Do not replace references following any of the 
labels SDKILL, SAT6, SVSDR2, or SVDSZ. 


17. 


Detection of certain errors in an indexing operation may cause a register dump, particularly if the install- 
ation workspace size is nonstandard. 


Fix: іп relocatable deck APLSERAF, replace 8 bytes starting at x'00000c'-by x'58d0,b080, 
95с0,1ааь' . 


18. 

Receipt of a PA message by a terminal engaged in J ог 0 input may cause a loop terminating in a 
register dump. 

Fix for DOS version: in relocatable deck APLSSYNT, replace 4 bytes startingat х'000358' Бу 
x'Üafe,n050', 


Fix for OS version: same, except that the byte at — x'0003b9' has the value (APLSVC-APLMAP) 
165536. 
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19. 
[306] 
Сз) 1-2 
1111111! 


This sequence causes a register dump due to incorrect processing of the display of the zero-length edited 
line 3. 


Fix for DOS version: in relocatable deck APLSASUP, replace 2 bytes startingat х'002216 by 
х'4740'. 


Fix for OS version: referring to the microfiche assembly listing for ASUP, the x'4740° replaces 
the first halfword of the instruction BNH STYOBAD two lines after the label REMTYO. 


20. 


An attempt to delete a nonexistent line of a function (by striking the linefeed key) may fill a nearly- 
full workspace to the point that further lines can be neither displayed nor deleted. 


Fix: in relocatable deck APLSTPIN, replace 2 bytes starting at х'000сЁ2' by х’0050'. Replace 
2 bytes starting at х'000412' by x'9cOc'. Replace 8 bytes starting at х'2с0с' by x'8717, 
са7а, 4720, са26'. Patch the control section length to x'002c2a'. 


21. 


Erasure, copying, and some forms of editing of a function G, , which appears in the State Indicator 
below some other function having a local variable names 7, does not signal 57 pamase and is likely to 
cause a subsequent register dump. 


Fix: in relocatable deck APLSTPIN, replace 6 bytes starting at x'000f14' by *'1913,47£0, 
9с14", Replace 22 bytes starting at х'002с1а' by х!4740,9с24,5430,9844,5833,5000,5430, 
9958,861b , сеЁ8,07Е8", 


The fix to No. 20 includes patch space for no. 21. 


22. 


The expressions 0р'' and '','* produce empty vectors of numeric type, evidenced by a Take or 
Expansion operating on them. 


Fix: not known. 


23. 


A momentary telephone line break will unlock the keyboard of an IBM 2741. The APL system detects 
the relocking of the keyboard by receiving a circle-c character from the 2741. Under some timing condi- 
tions the circle-c is ignored due to arrival of the preceeding circle-d character when the 270X is command 
free, 


Fix for DOS version: in relocatable deck APLSASUP, replace 2 bytes startingat — x'003848' by 
x'0071', 


Fix for OS version: working from the microfiche assembly listing for ASUP, replace the macro call 
SSA LIRS,SGMIN,UNLIRMIN by SSA 1185, SGMIN, SETIDLE. 


This will involve changing one byte in the relocatable deck. 
We don’t guarantee the results of installing these patches: however, they are the same (if we trans- 


eribed them correctly) as the patches made to our copy of the DOS APL/360 Program Product. We have 
12 
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not tested any changes on an OS-based APL system. 


Addendum 


Two additional problems have come to light since the preparation of the above paper. The fixes given 
here should be included with the earlier fixes for problems 4 and 21. 
Problem 4: also replace 2 bytes of text starting at х'000044' Бу x'c02a'. 


Problem 21: Also replace 2 bytes of text starting at x'000eca' by x'58f0'. 
Replace 2 bytes of text starting at х'000се8' by x'l12f3'. 
Replace 2 bytes of text starting at х'000#02' by x'lb2f'. 
Replace 2 bytes of test starting at х'0012#0' by x'12f3'. 
Change the replacement text given for location х'000214' to x'191£,47£0,9cl4'. 
Change the replacement text given for location x'2c14' to — x'4740,9c24,5a£0', 
x'98d4,58ff , b000,54£0,9958,861b,cef8,07f8'. 


A GENERALIZATION OF APL ARRAY-ORIENTED CONCEPT* 


S. Charmonman 
Associate Professor of Computer Science 
University of Missouri-Columbia 


ABSTRACT. One of the most important concepts in APL is that standard scalar dyadic functions may be 
extended element-by-element to compatible structures. This paper presents a new definition of compata- 
bility which is a generalization of the APL array-oriented concept. Examples of programs in the gener- 
alized version are given with comparisons to standard APL, FORTRAN, ALGOL, and PL/1. 

1. Existing Concepts. 


The existing concepts are summarized here in two parts, compatibility condition and rules of 
computations. 


1.1 Compatibility Condition. Two structures are compatibile for standard scalar dyadic func- 
tions if either 


a) they are of the same size and rank; or 
b) one of them is a one-element structure. 


The term ‘one-element structure’ is used here to mean structure of any rank with only one element, 
e.g., a scalar, a vector with one element, a one-by-one matrix, etc. 


1.2 Rule of Computation. The corresponding rules of computation depends on whether 
compatibility condition (a) or (b) is mel. 


1.2.1 Same Size znd Rank. If the two structures are of the same size and rank then computation 
is extended strictly element-by-element. For example, let о be any standard scalar dyadic function 
symbol; A, B and R three m-by-n matrices (or in APL terminology. structures of rank two and shape 


mn). Thus, 

11] R+AOB 

means 

[2] R[I;J] + A[I;J] е B(I;J] 


*Work supported by the National Science Foundation Grant GJ-427. 
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for I and J in the set of all integers from one up to (pA) [1] and (гА)12] respectively. 


1.2.2 One-Element Structure. If one of the two structures is one-element then computation is 
done with that element and each of the elements of the other structures. For example, with e denoting 
any standard scalar dyadic function symbol; S a one-element structure, R and A two m-by-n matrices, 


[3] R+SoOA 

means 

[4] R[I;J] + 5 o А(1:01 
Similarly 

[5] R+AoS 

means 

(61 В11:41 + А11:01 е 8 


The computational rule for the case of one-element structure may be restated as first reconstruct the 
scalar to structure of the same size and rank as the other argument, then we have the case of same size and 
rank. For example, [ 4) may be redefined as 


[7] В + (сА)о5 


followed by [2]. 
2. New Definition and Rules. 


One way to generalize the array-oriented concept is to redefine the definition of compatibility to be 
that any two structures are compatible for standard scalar dyadic function. This generalization is in line 
with the fact that we have not imposed any condition on rank and shape for standard scalar monadic 
functions, and therefore should do the same for dyadic functions. 


The question is now how to define and compute the result. There are several possibilities. An 
interesting one will be presented here, 


Consider 


(8) с - лев 


whser о is any standard scalar dyadic function, and A and B any two structures. Let the number of 
elements of A and B be m and n, 


191 m+ x/pA 
and 
[20] n + x/pB 
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If A is a vector then pA gives the number of elements of A and x/pA remains the number of elementsof 
A. If A isa matrix, oA is the shape, say q-by-r or the vector with two elements q.r. The multiply reduc- 
tion of q,r, then gives q x r the number of elements of A. 


If А is scalar then pA is the empty vector and x/pA the identity element of x which is one. 


The computation rule could then be that е is done 
1111 р + mín 


times with the structure with smaller number of elements used cyclically. Thus, in the existing APL 
notation, the intermediate result is 


112] С + (ррА)ө ров 


Then we need reshaping rules: 


1) if the ranks are not the same the result is of the rank and shape of the structure of the larger rank. 


Example 
a) 123 10 10 10 123 11 32 13 
10 + => + -> 
456 10 10 10 456 14 15 16 
ы) 123 101110 123 
1011 + => Ф 
456 11 10 11 456 
11 13 13 
-> 
15 1517 
4 
c) 123 10 11 12 123 
10 11 12 + => Ф 
456 10 11 12; 45 
J 6 
11 13 15 
=> 
14 16 17 
123 
10 11 12 13 14 15 16 17 + 
456 
10 11 12 123 11 13 15 
“> + => 
13 14 15 456 17 19 21 
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2) if the ranks are the same then 


2a) if the numbers of elements are not the same, the result is of the same rank and shape as the structure 
with larger number of elements. 


2b) if the numbers of elements are the same the result is of the same rank and shape as the structure on 
the right. 


Example 
a) (101) + 3013 => 456 according to (2а) 
b) 1011 +123 => 11 13 13 according to (2a) 
с) fa 23 7 8 9 8 10 12 according 
* -> 
456 10 11 12 14 16 18 | “е (2b) 
L 
22 
а) 123 7 8 8 10 
456 * 9 10 |=> | 12 14 according to (2b) 
11 12 16 18 
e) 7 8 123 8 10 12 
according to {2b} 
9 104+/45 6] => | 14 16 18 
11 12 


3; A Comparison of Programs. 


A few programs in APL, the proposed generalization, PL/I array-oriented feature, ALGOL and 
FORTRAN will be given for comparison. 


Example 1. Suppose we want to subtract all rows of an m-by-n matrix A by a vector B which 
is of the same size as the rows of A. 
APL 


A+ A - ((pB) pi)e.xB 


Proposed generalization 


A+A-B 


PL/1 with M = number of rows 
DO ізітом; 


A(I,*) = A(I,*) - В; 
END; 
16 
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ALGOL 
FOR 


1 STEP 1 UNTIL M DO 
FOR Ј:= 1 STEP 1 UNTIL N DO 
А11:0) := A[I,J] - BIJ]; 

FORTRAN 
ро 101 - 1, M 
DO 1052 1, N 

10 А(1,2) = А(І,Ј) - BD 


Example 2. To update the entries іп ап m-by-n array by multiplying all entries in the Jthcolumn 
by 1 + B[J] where B isa vector with n elements. 


APL 


А = А * 1 + ((oB)pt)o.x B 


Proposed Generalization 


4-А4ж«1%В8В 


PL/1 With M = number of rows 
DO I = 1 TO M; 


A(I,*) = A(I,*)*(1 + B); 


END; 


ALGOL 
FOR J:= 1 STEP 1 UNTIL N DO 


BEGIN D ;= 1+ Bld); 
FOR І :- 1 STEP 1 UNTIL M DO 
A(I;J] := А(1:0) x D 

END; 

FORTRAN 

DO 10 J = 1, N 

D = 1 + віз] 

DO 10 I = 1, M 


10 A(I,J) = A(I,J)* D 


4. Conclusion; 


It is obvious from Section 3 that programs written in the proposed generalization are shorter than in the 
existing version of APL, not to speak of programs written in FORTRAN, ALGOL and PL/1. Furthermore, 
the proposed generalization includes the existing version as a subset. Thus, programs written in the existing 
version will be accepted in the proposed version and new programs to be written in the proposed version 
can be made shorter. The concept of using a structure cyclically in the new rules of computation is not 
foreign to APL since it has already been used in the existing dyadic р. Therefore, the proposal should at 
least be considered in future implementation of APL. 
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CORRESPONDENCE 


To the Editor, APL Quote-quad: 


In collecting my thoughts for another year of teaching (and writing about) APL, a number of features of 
the present implementations have struck me as being inconvenient, incomplete, or inconsistent. I would 
like to publicize my concerns with the hope that others who may have seen, or come to see, these problems 
can help solve them, whether by explaining them away, by advocating the changes I suggest, or (hopefully) 
by proposing even better changes. (I would add that I have had only one year's experience with the APL 
system, and that on the 1130, so that I may have misconstrued some of the features of APL/360 which 
differ.) 


On Operator Classes 


After some experience with APL/1130 which does not use it, I found myself disliking the solitary branch 
(exit) operator in APL/360; it seemed to be the only operator which did not require an operand. Later 1 
recognized that the input symbol could also be made an operator without operands (instead pf a pseudo- 
variable). Finally, I concluded that my annoyance stems from the absence of any more instances of what 
could easily be a general policy of the language's design-any symbol may be given anadic (7), monadic, 
and dyadic meanings. (A programmer defining his own function is allowed to choose one of these three 
forms; why shouldn't the language designers assume similar privileges? Conversely, couldn't the system 
distinguish among two or three uses of the same identifier? ). 


T suggest three new operators, anadic uses of existing symbols, to keep the first two company: 
o (pi) ж (е) ? (randon fraction) 
Here are three examples of the use of such operators: 


4-0 (0) x Ra 2 (R* 2) хо 
Note that the last two examples are, in this instance, better written as: 


oR*2 


and are quite different from 


охР»? 


because the second operator here must be interpreted monadically. 


While cataloging the variations on operator symbols, we should also consider indexed (parameterized) 
Operators, consisting of only compression and expansion at present. I see one other obvious candidate 
for this form, the circular functions. The first “operand” of x so completely changes the nature of the 
operation that І would much prefer to see it as an index (selector), e.g. 


o[1) X (10%) 


(А similar case is the system-variable reporter, which could be anadic indexed, or perhaps just a vector). 


A later addition will very likely be the designation of various external files, most naturally specified by 
Otw]. How far the analogy between operator indices and array indices can be extended will require 
some exploration. 


On Mixed Output 


The “mixed-output” operator {semicolon) has annoyed me since І first met it. І have no quarrel with 
the need for mixed output, but after experiencing the convenience of PL/I's number-to-character conver- 
sion І am disappointed by the ad hoc and limited nature of APL s analog. On the 1130, at least, it is even 
self-inconsistent-if the leading expression is an assignment, the value assigned depends on whether the 
destination is internal or external. 


18 
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I strongly recommend the adoption of a character-conversion operator (possibly monadic 0 ) which 
produces a (1- or 2 dimensional) character array identical in printed appearance to the numerical argument. 
Г admit to some problems regarding line length, but that restriction should really take effect only in the 
output message composer; the character value should be as wide as necessary to represent the value. There 
are greater problems concerning the juxtaposition of dissimilar matrices, but I don’t think the present 
implementation solves them either, Perhaps some components of the PLOT package would be brought into 
the language. 


On Tracing Immediate Execution 


I would like to suggest that the immediate execution mode be treated in many respects like other prog- 
rammer defined functions. The most obvious difference between this and stored-program mode is in the 
lack of line numbers, but even now they could be supplied for visual reference; They could be consecutive 
or indicate the depth of execution nesting. 


The most useful result of this change would be the ability to trace the progress of a casual calculation 
with out continually requesting the last result (by repeating its name or by thinking ahead to prefix 
<= to the assignment). 


Secondly, public recognition of this preferred, nameless function permits it to appear in the state indicator. 
This will lengthen (often double) it, but will help reduce the unexpectedness of actions that can result 
upon return from a nest of activations. 


Thirdly, if tracing is standard for execution mode (until the beginner learns how to turn it off) then the 
ad hoc rule of dumping unassigned results on the console can be abandoned. Even though trace mode can 
always be utilized for output, its use is not generally regarded as being conducive to program clarity. I 
would like the attitude carried one step further and not have any expression value printed without a 
specific request (by trace or assignment). This has the advantage that a valueless function reference may be 
supplied as “input” without causing an error. 


Much of the effect of this proposal can be accomplished by executing this program 
$ EXEC; L 
L <!) 


+1 
v 


This program falls short of complete satisfaction in that it requires every line to produce a value, it does not 
number the line, and it is not automatically re-activated after an error 


Here is a sample session illustrating this scheme; 


10] )29090 [5] Тл 
ANGER SIGHED 29 1510 
[6] Pel 234 
Б: P 
(81 [ЕР 
$ 25% 
[9] ПеРхР 
14915 
[10] CLEAR 
[2) X Сој 3xu 
[2}12 {0112 
[3] X+Y (1) 21040 WORK 
VALUE ERROR WORK LOADED 
ІЗІ Kr [37] )51 
^ 22] x 
Сэ] Yes [36] 
(315 Fal ж 
(41 Kr E33] 
1417 [37] < 
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[37] 9202] 1381 [1] 

[22 D ul + 

[3] [2.1]X+/M [2] )$Т 

[2.2] ч [2} * 

[37] +2 

[JJ  M«10.8 2 5.3 6 [2]  )SAVE WORK 

THE SUM IS 23.7 WORK SAVED 
[2] ОРР 
SIGNED OFF 

On Trace-output Messages 


Trace messages, at present, occasionally leave the programmer guessing between an empty vector and no 
value at all, or a scalar number and a vector of digit characters. Admittedly these ambiguities do not occur 
often and are usually resolvable by reference to the generating statement. Nonetheless, the purpose of a 
trace is to assist a programmer who does not understand everything that his program is doing, so that 
reduction of any such ambiguities will help him to understand its operation that much sooner. 


I propose, therefore, that each trace message include, in an unambiguous format: 


program name 

line number (in brackets or other delimiters) 
line label, if any 

dimension (possibly empty) of result, if any 
type of result (numeric or character), if any 
result value (unless empty or non-existent) 


Here are some samples: 


VREAD; L +2 

1) r0 READ 2: 

[2] READ V READ 2: 

М READ READ 
TAREAD+1 2 3 

0: READ 1:03 
11 0: 

READ 1:101 1САТ5" 

READ 2:ATTN READ 1:4aCATS 
)SIV 0: 

READ 2: * L ээ 

READ 2: L READ 1:00 


On Keyboard Design 


To permit the widest flexibility in future keyboard design, several characters now formed with single 
keystrokes ought to be equally acceptable as overstrikes: 


жээ z (га /) s (<&_) 208) 


When a large protion of the characters used are overstrikes, it would be convenient to have a terminal with 
a "multiple punch" key. Whether operated by internal wiring or external programming, it would cause 
automatic backspacing after the first keystroke of each pair. 


When the next standard keyboard is designed, I would be happy to find the 0 next to the 1, not the 9. 
It might even have an alternate in which the alphabet is also “in order”. 30 
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Miscellanea 


Í would like to see an embedded (“dyadic”) branch operator. If the branch is successful (second operand 
non-empty). the first operand wil] not be evaluated (the first operand of assignment is never evaluated 
either). If the branch is unsuccessful (second operand empty), then the result will be the value of the first 
operand (partially analogous to embedded assignment)..Here is one common application: 


> LESS + EQUAL х x X = 0+ GREATER x v X > 0 


Т would like to see an implementation according with Dr. lverson's claims that the right-to-left rule 
need not apply to operands. This implementation would give programmers a chance to experiment with a 
pseudo-parallel evaluation scheme before the advantages of truly paraliel evaluation are available. Because 
some programs do depend on strict sequentiality, this freedom should be made optional. 


Mostly for the fun of it. 1 would like to see a successor (increment) орегсїог. such as: 
> x (1+ X) 


More seriously, І would like to see some equivalent for the “doloop” convenience of Fortran and PL/I 
One important component of that control is an operator which can make a re-assignment to one of its 
operands, perhaps it should be written thusly: 


Ate (X< X + N) 


Conclusion 


Knowing that APL. has been un 755 slowly for over a decade, І realize that the designers or impl- 
ementor may have considered “с of the alternatives which І am proposing. and rejected them. In 
those cases, | ask not so much for u :econsideration as for a public statement regarding their decision. so 
that a wider understanding may be reached concerning the goals of future development 


APL Quote-quad is probably the 5251 medium for general discussion of these and related matters. If. 
however, anyone prefers to writ ‚ne or Dr. [verson directly, they should certainly do so. T» reduce 
the delays inherent in а discussion-by-mail, 1 would appreciate receiving copies of other corres ence 
on these questions. 


Arthur L. Anger 

Asst. Prof. of Computer Science 
Wellesiey College 

Wellesley, Mass. 02181 


7 August 1970 


September 23, 1970 - Vol. 2, No. 3 /131 


Dear Editor: 
Please observe the following program enabling character input without beginning on a new line. 
ҮРІХІПІУ 
У RFIX 
[1] А+, Оре“ЕМТЕЕ YOUR НАМЕ = ' 
[2] Re(itRi'=*) +R 
v 
The literal output in line 1 may be replaced by indexing a literal matrix catenated with ‘ = °, for 


example. The quote-quad presents some interesting results if one experiments with various statements 
using it for output. 
Sincerely, 


Kevin R. Weaver 
43 W. 85th St, Apt 7 
New York, N. У. 10024 


(This doesn’t work on the old D.O.S. Type 3 version, which presumably makes it implementation- 
dependent. Editor) 


A NEW NOTATION 


Your attention is directed to the attached “parable” concerning the problems faced by a young Arabian 
mathematician in attempting to sell a Roman civil engineer on the relative merits of a new Arabic notation 
versus the existing Roman notation. 

Aside from the historical and somewhat amusing aspects of the parable, it is also a pertinent analogy to 
the modern-day problems sometimes faced by an APL devotee when attempting to convince a user of 
BASIC/FORTRAN that APL is indeed a new and better problem-solving notation. 


Kenneth R. Gold, 

Manager, Product Research, 
Martin - Marietta Data Systems, 
1636 Oakridge Road 

Orlando, Florida, 32809 


(Unfortunately, due to lack of space and possible copyright problems, we are unable to reproduce the 
article - however, the reference is: 

The Empty Column - Computers and Automation, 

January, 1970 - Page 16. Editor). 


APL USERS' GROUP, FOUNDERS COMMITTEE EFFORTS 


Most of the Quote-Quad readers probably have seen the publicity for the APL Users" Group in the 
August issue of Computer Decisions (page 2). Actually, this was a Computer Decisions abbreviation of a 
write-up of the NASA meeting which was printed in the Quote-Quad. Inquiries are being received by 
people who wish to “join” the organization, 

Rather than let these inquiries go stale while the group is being formalized, [ am sending them a letter 
informing them that they will be notified of future meetings, and that for $3 paid to Garth Foster they can 
receive the APL Quote-Quad. 1 am assuming that this procedure will avoid possible conflicts with Founders 
Committee decisions regarding the organizational structure. 

Please permit some comments on the Users" Group organization, knowing full well that we do not all 
have the same experiences (data? ) in these arcas, and with hopes that contrary views will be expressed. 


1. It seems to me that “Time is of the essence" in uniting the APL user community as it relates to the 
multiplicity of non-coincident commercial interests. (Manufacturers, Time Sharing Vendors, etc.) 
2. The problem of establishing a policy-document, Constitution & Bylaws, or something similar is a very 
difficult problem, as those who have done jobs like this can verify. It is of a "successive approximation" 
nature, never being final, always subject to revision. Since we are starting from “no organization what- 
soever" as the initial point, and would prefer enormous “progress versus time”, using an existing organ- 
ization as a pattern might be a good approach for the first-approximation, since great efforts have already 
22 


132/ APL QUOTE-QUAD 


been expended in these areas by some fine minds, and good practical solutions have evolved. 
3. Compared with other computer users’ groups, SHARE has been an overwhelmingly successful organiz- 
ation in four areas: 

Financial 

Technical & Professional 

Social 

Stability (over a time interval during great change--23 years) 

(Its structure is available in the SHARE Reference Manual, obtainable from any SHARE representative 

of an installation having a 360/50 or other size-comparable IBM computer.) 


With the hope that the Founders Committee might adopt formalized “policies” for their own efforts, 
the following possibilities are submitted: 
a Selection of an existing successful organization (Many to choose from) 
b Minimization of changes on behalf of speed 
с Emphasis on brevity and minimization of detail 
d Separation of the problems associated with establishing a Users’ Group from the problems associated 
with publishing 2 periodical 


Some of us expect that the Group may grow rapidly, Possibly emphasis should be placed on the 
financial stability of the organization in order to insure early success, Furthermore, there would seem to be 
many aspects of publishing a good periodical which resemble a commercial enterprise, and this of course 
requires financing, presumably stemming from the Users’ Group efforts. Hopefully someone will develop 
a business plan for the periodical as well as one for the user organization (revenues and expenses versus 
time 

p, wishes to the Founders Committee in their efforts. 


Karl Korn 
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ALGORITHMS 


Number 27 TRIGONOMETRIC FUNCTIONS FOR 1130 
Tom McMurchie 

11 4th Street 

Niceville, Fla. 32578 


І am somewhat disappointed with the APL/1130 algorithms that have been published thus far, 
particularly the trigonometric functions, 1 can not believe that all of that cryptic code is necessary, 
since a simple polynomial representation of Sine (to APL/1130 accuracy) is: 


PReSIN М 

[1] вем 

[2J R<+(M)xR-((R*3):13)-((R*5)+15)-((Rw7)+!7)-((R#9)+19)-((Rw11)+!11)-((R*13)+1135)- 
((Rw15)+!15)-((Rx]7)+117)-((Rw19):119) 
т 


which, Гог scalars and vectors, is just: 


TR-SIN M 
[19 «ОМІР |М29,Ұ83-.31В-142х(1100-11 
v 


We certainly are not going to impress anyone with the compactness of APL by displaying 9 line 
approximations of Sine! 


Number 28 DEAL FOR 1130 
Tom McMurchie 


Back in the old days of APL/360, when the “DEAL” function was not implemented, we used the 
following function: 


VReX DEAL Ү;];1 
[12 зе 
[2] R-0oIe:x 
BI >4x0<32Y-pR+R,(X+<(vX)e?JoX)/1 
[4]  Xeol-(20/X 
[5] эз 
y 


It keeps both looping and random generation to a minimum. We found that it was the fastest of all the 
proposed "DEAL" algorithms for APL/360 for large X and Y. You may wish to pass it along to our 
APL/1130 friends. 


Number 29 NEW DEAL FOR 1130 
John E. Lauer 

Colorado Computing Corp. 

Box 38 

Boulder, СО 80302 


The 1130 DEAL published in Vol. 2 №. 2 by Lynn Yarbrough requires 2 arrays of length Y, which can 
be unfortunate in an 1130 workspace. 

The authors original version used pair interchange for this reason, and only one such array. The 
author's present version is somewhat cleaner than the original, and executes in the same time as Yarbrough's. 


[1] 

(21 814.11-8(1,/-71%1%71-1-өні1 
Сз] >(Х21-1%1)/2 

[sJ ReXpR 
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Number30 1130 TYPE 
John E. Lauer 


Since TAKE is not a primitive on the 1130, TYPE by John F. Sowa, Vol. 2, No. 2, is shown, modified 
for the 1130. 


x m 

Ч В-ТУРЕ X 

[1] В+0=0\0рХ 
v 


Number 31 1130 GRADUP & GRADWN 
John E. Lauer 


GRADUP & GRADWN are improvements over those published by the author in Quote-Quad No. 4 
whicn only handled integer permutation vectors. 


9 Z+GRADUP X;I У ZeQRAD4N Хү1 
[11 2+\0 (11 4-19 
[2] ZeZ,IeXiL 7X C2] 2е2,1-ХАГ/Х 
[3] Х(11+1.7Ё38 132 4111-71.7Е38 
(42 *((p2)«pX)/2 (91 э((р2)<оХ)/2 
v v 


Number 32 POSITIVE SOLUTIONS OF DIOPHANTINE EQUATIONS 
John E. Lauer 


DIOPOS is a post-processor for a diophantine equation eigen-function (cf, SLIDE by Paul L. Kingston, 
Quote-Quad vol 2 no. 1) whose result is the matrix of all positive solutions Хі, for functions with 1 
(only) eigen-variable. 


9 R+DIOPOS BiS 
1)  S-B[i2]:Bl;1] 
2]  Я-Г/РЕООВ 1-(0580;1])/5 
3] Br 1*R*v1+(L/CEIL 1-COSBE;11)/8)-R 
8] ReR+tpR-Re.xBlL;1])oBL;2) 
У 
CARD 
A 


С 
t 
t 
t 


100 100 
РІОРОЎ Ge A DIOPH 8 


7% ° 
19 20 
714 80 


C DIOPH D 
5 о 

711 чо 
6 60 
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веі 2 
DIOFG5 ПЕ SIOPE F 


ua 1 
150 2 
TT 1 
{void vector] 
)CARD BLD 


Number 33 BAIRSTOW'S METHOD 
John Richardson, 

Orange Coast College, 

Costa Mesa, California. 


У А BAIRSTOW Z,H;COVHiEIPiQi KiJ; CQ; APAQ; B; D 


C1) POX 1L>HepAritAtipCO+ 14A, Р+1р2,Р+2[1+р,0+2[ 3+0] ] 

[2] “(2 3 зойё 1 0 ,173е8е 0 1 ,10)/ 14 13 

131 ВГ21«А1214(-Рх108)-0:811144111-Р,К-043 

[Du] ых AeEe-Keo ,RUEIeALR 1e -РХВ(К-17)-0хВ1Е-21 

[5]  CL2)-BL 2) (-Px10C)-QiCL 1 ]-8[1]-P 

[6] >6бхіМ>/-/%0,С(41-81271%(-2хС10-113-4хс(7-21 

[7]  9хүйх240,04С1-11-811-11 

Сај  *10,P«P& APKCCB(E-1]xCUL 8 2)) -BLNJ)$ De (CL - 27 
2)-с 

[9) P+P+AP+((B[2-1)xC[U-2))-BU(N1xC[N-3))+D<(C[W- 
2]*2)-CxC[N-3] 

(107 0Ф04АО4((В1”1хС11-21)-817-1150) 40 

[11] +00100</7+М+1),Е<(140)+|АР)/ 16 3 

[12] 9((1:0),3594-0-2)/ 18 3 ,ОрАФВ,ОрРь 14р,0621 
34800600 QUAD Р,211 

[13] »р0+С0 QUAD 204 

[14] "АРАГ ROOT 

ROOT F(X)! 

1151 +0,20+ 1 2 0(-4111),(-4(11)100 

[26] “SLOW OR NON CONVERGENCE! 

[17] а 'A' CONTAINS ТНК CORFFICIENTS OP THE N'TH DEGREE PO 


LYWOMIAL 

(18) я ZL1]-TOLERANCE FACTOR ; Z(2 3]-GUESSES FOR QUADRATI 
C FACTORS 

[19] я SUBROUTINE 'QUAD' CALCULATES ROOTS FROM QUADRATIC P 
ACTORS 

(20) a AN EXAMPLE WOULD BE SOLVING THE ROOTS FOR THE POLYN 
OMIAL 

[21J я (XweS)e(2xXun&)-(uxX43)-(20xX4«2)-(33xX)-18 ; INPU 
Т WOULD BE «АЛ orman Метал өх) Рой. Ex ролт" 


[22] a1 2 “u 720 733 718 BAIRSTOV 12710 0 0 
{231 я PROGRAMMED BY ¿QUN RICHARDSON. Q.C.C..C.S. 7 ,SPRINC 
'70 


VQUADLO)V 
V 2%С0 QUAD AiBiW 


ci} 4x 0<#+A[2)-A[1)x (-В+-АС1 ]+2)+2,2+10 
[2] ‘REAL ROOTS 


ROOT F(X)" 
Сэ] >0,оПе 2 2 o( BW), ((B+tW)1C0),(B-W),(BoWe( {We 
0.s)ico 
[s] 'COMPLEX ROOTS 
REAL IMAGINARY' 
[5] 2 2 oB,C-CIR)40.5),B, CIW) 0,5 


v 


Number34 SIMPSON’S RULE 
John Richardson 
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VSIMPSONLD3V 
Y Zel SIMPSON Air 
Га] Z€(]-/Atlix 3)x«/Ux1 , ((И-1)р ú 2),1,00X«AL1J,4L12e (8) х 
1-/AtN 
[2] я FUNCTION MAY BE ANY APL FUNCTION EXPRESSED 18 X 
я N IS THE NUMBER OF INTERVALS FOR EVALUATION 
[4] a A IS А VECTOR CONTAINING THE LOWER АЕР UPPFR LIMIT 
я OF THE INTEGRAL. 


ÄRMEL 


бм X в: 
1 


10Х 


ТЕ 100 SIMPSON 0 .5xoi 
o 


Number 35 АРІ/1130 CARD BLUFF 
James J. McDonell 

O'Brien & Gene 

Syracuse 


The following is a set of clumsy and inefficient programs to play straight 5 Card Bluff Poker (No Draw) 
with a computer. Play is broken into 2 sections, PLAY1 and PLAY2, in order that the players may view 
their hands. Hands are in Bridge Notation and are stored under the Variable Name TRY3. )PCH TRY3 isa 
convenient method of output, if available. TRY3 is a Matrix with a row corresponding to a Player’s Hand. 
The Computer’s Hand is always the last row of the Matrix. There is one major bug - for equally Ranked 
Hands, the first occurence of High Card is the winner. Before the First Hand is played initialize the 
workspace by setting 57257-:. This need never be done again. Type PLAY 1, Enter Number of Player's 
(Excluding the Computer) and the Ante. The Computer assumes the Ante is the Maximum Bet. After the 
hand is dealt output TRY3 in a form convenient to you. Type PLAY2 and place your bets. To fold, 
type a negative bet. Respond to questions witn aY or N (Yes or No). 


Ув 
[$$] 
i?) "EH 
131 З-1950Ч8-060хо0-"Я04 МАМУ PLAYERS?" 
142 »Охо2-"МБАТ IS THE ANTE?" 
ts] 
(81 
17) Lirel2xi'P'cyY-Te0xpD-'HOW ABOUT ANOTHER НАМ?" 
(81 we 
09] .. 
1101 ‘THE САМЕ IS OVER, ТІЗЕ TO РАУ ОР! 
1113) vu 
[12] del 
[13) LS:( TOTALUDP1«0)/L3 
(141 Xe! BS + 
[151 5253 
(161 13:169 OWFS ' 
[172 (BUTR-1))/2 [16) 190/26 
[181 1 зніка тэта) 
1191 118) «(№549 2+И+1 )/ 
[20] д; нн (19) 26: С0ЧРОТЕЯ 'iXilTO7AZUN) 
(21) *(ANDz1)/7 (20) +0«51957+1 
[22] АРЫҚТА (241) L2:DEAL 
123) 122) нэ 
128) 1:-(ТҮРГІИ1<3)/5 (23) SCAN 
(252 TrXeANTESCE/COUNT )- COUITUN ] ? 
0260) = 
(273 Гі-(ТҮРЕ(9161.12)/ғ v PLATZ 
(28) с:хе(Г/соўм?)-боўнт UJ) (121 BET 
128) = (2). wre 
130) Fi*C(ONUMB-1)1)/T [£5] PLAYS 
[31:1 «(ТҮРЕГЛТ20,13)/0 з 
[22] ха 5 
[33] 57 
рэе] T:+((WUMB-1)z2)/8 Tec DEAE 3 AA Y 
(3952 Э(ТҮРЕ[#1<0.1)/# (812  Reumeonoar.x 3 
[36) “с [2] 2902-82 +0*рА- (0, CC 164)01))/(2-1)04* Ox RA (267941,Я 
£37) J:-((0)/K 7. 


[38) "COMPUTER BETS 'iX 

[зә] Cc0U87[M)+COUDT[M]+Z 

(чо) ait 

1911 Х:'СОМРИТЕЯ FOLDS' 

(92) Т8:(8160 

Саз) м: (УИС СТРУИ сой Т)«Г/с00073)/0 27 
v 
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тоно 
(11 Set2E 32 «C 53 54 7D SC 95 108 JD QC KS АН гр зс 4S 
SH 6D 72 eS 9г 100 JC E XH А 


£21. 53-822 33 ән SD 6C 75 вл 9D 10645 QH KD AC 25 3H «D 
65 ? ве 3C 105 JH QD KC A 


(3J TRY2-(uxp72Y)o! ' 


(ар Tps2l3+ax 13645(75Ү(23-131 
19) TRY2( +440 12152 чөмх(13Ү(41-131 


Y3e(4J:49,20)0 2312 


(272 
[1] rerecounrst sce: 
t2) жї 


[u] Mens 


(51 
[6] 
t1 
Ce) 
£91 
(107 “р 
131) G COMPUTER WINS '15 
111 [12] 6707АЬ%67024192 
121 (13) р: 
131 Liu) хе 
[sJ (151 рі-(тэн)/с 
(51 126) TODALUX)« 707A 2LX] -COURTUX) 
(62 [17] s¢xewuray/T 
Un UrP]sVALUELA:] (18) “PRAYER #0. 'iXi' OWES 'iCOUNTLXI 
[8] (29) эс 
191 [20] I:' COMPUTER OWES 'iCOUNTLXl 
(10) (221 GIOTAL-GTOZAL-COUMTLY) 
[111 8:2186(Х16((8/22007)-5342 (22) C;Z-z+1 
(12) «(ТУРЕ наи С [23] -GsUU8)/D 
(13) TYPEX +e ? 
(14) эр 
(15) біз(ТҮРГІХ1462/2 
[16] ТУРЕ 
117) (ТЕРЕ Х1жо)// 
Зым ЫЫЫ 659373 
[19] ТУРЕ(1145 
[20] Fie(C ZA ZUEUE L1) LZ VALUEEZ 2) 99/2. 
[21] «CU ZVADZEL GO 1 4 Ce VALUED 2582) DU 
{221 Gi oYPELX 
[23] ТҮРРІ (1-4 
(26) < 
(251 HiTYPEX]e8 
(261 4:541 
(27) %і-(3>5)/0 
[28] +СУЛЕУЕСХ: S11) 7 
[29] VALUEL Y 5] +14 
[30] Чібезті 
Dil sr 
[32] басФултесдивг>і 
133] «СТУРЕГ Х1З6)/Р 
$34] 404/(0 в 5 BySTYPELZI)/Q 
(95) rYPELX)ezzPEUZ Je ([ / (COUNT I VALUEL Xs 1) ) t190) e CCL/CCOUIT /VAZUEC X2) 
Збароў? (C9 C9UR2 VAZJECX 1) HIER) 
[36] эт 
137] PEUXI=DYPELAISCT/CCOURSYVALYELK: 1) ) 4100 


YPELX e TY PEUX e (E /VALUECX S 1) 1100 


Y DEAL 

TRY-CLS2)880 
(ALS )р28Ү2- 
(NYAR, 5 )o TR YS 
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SIRST+1 
PLAY1 
HOW MANY PLAYERS? 
D: 
2 
WHAT IS THE ANTE? 
D: 
100 
)PCH TRY3 
TRY3 


JH 95 AD 8S QS 
QD KH 4H KS 7H 
9H 4S 7С 2р AS 
PLAY2 
PLAYER NO. 1 BETS; 0 TO CALL 
Q: 
10 
PLAYER NO. 2 BETS; 10 TO CALL 
0: 
75 
COMPUTER BETS 75 
PLAYER NO. 1 BETS; 65 TO CALL 
D: 
2% 
PLAYER NO: 1 FOLDS 
PLAYER NO. 2 WINS 285 
PLAYER NO. 1 OWES 110 
COMPUTER OWES 175 
HOW ABOUT ANOTHER HAND? 
Y 
TRY3 


2H 10H 6C ЧС АС 
JC 95 2р ЗС АН 
65 JD 5Н Эр ӨН 

PLAY2 
PLAYER NO. 1 BETS; 0 TO CALL 
D: 

0 
PLAYER NO. 2 BETS; 0 TO CALL 
0: 

5 
COMPUTER BETS 105 
PLAYER NO. 1 BETS; 105 TO CALL 
D: 

E 
PLAYER NO: 1 FOLDS 
PLAYER NO. 2 BETS; 100 TO CALL 
0: 

100 


PLAYER NO. 2 WINS 305 
PLAYER NO. 1 OWES 100 
COMPUTER OWES 205 
HOW ABOUT ANOTHER HAND? 
Y 
TRY3 


3H KC 6H 6C 5S 
AS QC 10C AD 45 
3D 4H 2H 7S 6D 
PLAY2 
PLAYER NO. 1 BETS; 0 TO CALL 
0: 
20 
PLAYER NO. 2 BETS; 20 TO CALL 
100 
COMPUTER BETS 200 
PLAYER NO. 1 BETS; 180 TO CALL 
D: 2 
$ 
PLAYER NO: 1 FOLDS 
PLAYER NO. 2 BETS; 100 TO CALL 
D: 
200 
COMPUTER BETS 200 
PLAYER NO. 2 BETS; 100 TO CALL 
D: 
200 
COMPUTER BETS 200 
PLAYER NO. 2 BETS; 100 ТО CALL 
D: 
100 
PLAYER NO. 2 WINS 820 
PLAYER NO. 1 OWES 120 
COMPUTER OWES 700 
HOW ABOUT ANOTHER HAND? 
N 


THE GAME IS OVER, TIME TO PAY UP! 
PLAYER NO. 1 OWES 330 


PLAYER NO. 2 WINS 1410 
COMPUTER OWES 1080 
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EDITORIAL 


The September issue of Quote-Quad was double the normal size despite a reduction in space taken by 
the Algorithms. This was the major reason why that issue was two weeks behind the September 11th 
deadline. To avoid this problem in the future we will try to return to the normal size and if need be 
publish more frequently. 

Currently, there is no editorial policy as regards the selection of articles. We will continue to publish 
all material until such time as the Founders’ Committee makes its recommendation with respect to the 
founding of an APL Users’ Organization. 

The difficulty of convincing FORTRAN programmers of the advantages of APL is an example of the 
inherent problem in changing traditional habits. [t is important, therefore, that as many people as possible 
meet APL first. Much work is being done to introduce APL at the high-school level (particularly by IBM) 
and in some universities at the undergraduate level. But we were interested to learn recently of a 
university at which a student was not even allowed to use APL until he reached graduate school. This 
not only predisposes him to use FORTRAN, but also greatly reduces the number of people using APL 
at all. 

It may, to some extent. be due to traditionalism. but another maior reason must be the high cost of 
of hardware for existing terminal systems. It is doubtful that APL will receive widespread acceptance 
until there is an inexpensive (small computer) APL system. 


?/0 


STSC have recently developed a software APL package which supports a CRT and/or plotter. [t is 
claimed to be good for geometric figures and particularly suited to preparing connected-line graphs, 
although currently character generation is slow. Anyone interested should contact: 


Al Rose, 

Scientific Time Sharing Corporation, 
30 Holland Avenue, 

White Plains, New York 10603, 
U.S.A. 


Telephone No. (916) 428-6910 


A. C. M. recently held ап APL Fundamentals Seminar, given by Al Rose. 

The Founders Committee will hold its first meeting at Lakehead University on the 7th of 
November, 1970. 

This issue contains an algorithm sent by Mr. Reeves of Honeywell. Is there any significance in this? 


CORRESPONDENCE 


In the last issue of Quote-Quad, Dr. Charmonman suggested an interesting extension to the use of 
scalar dyadic functions. There are alternatives which will be proposed by others. 

However, if any types of argument are allowed, the error messages RANK ERROR and LENGTH 
ERROR are removed from such a combination. It is then possible to get and use quite meaningless 
results when a logical error has been made. To protect the inexperienced user, extensions which reduce 
the number of error messages in this way should perhaps be optional (another system command?). One 
feature of the IBM implementation that can make inexperienced users use meaningless results is the 
result 1 produced from 0+0. An optional error message DOMAIN ERROR would often be more useful. 


Don Watson, 
Computer Centre, 
Lakehead University, 
Thunder Bay, Ontario 
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A LIMITED-CHARACTER APL SYMBOLISM 


Tom McMurchie 
Co-author APL/1500 Terminal System 


The desire to process APL inputs from limited-graphic peripherals has forced many people to consider 
the problem of representing the APL character set by some combination of a smalier set of characters. One 
of these attempts, by Dr. Charmonman, was presented in the July 10, 1970 edition of the APL Quote-Quad. 
This representation, though certainiy a start, has a number of serious flaws which are described below. In 
an attempt to design a more acceptabie notation, the following rules were proposed as a guideline. 


The proposed limited-graphic APL character set should: 

Be unambiguous; 

Allow extensions to existing operators without ambiguity or conflict; 
Generate all existing and future APL characters; 

Retain the meaning of all symbols common to these character sets; 
Be mnemonic; 

Use single characters for the most frequently used operators; 

Be readable. 


nn»2un® 


The first three rules should be considered inviolable to retain the syntactic integrity of APL. The 
temaining four should be observed whenever possible. 


The notation proposed by Dr. Charmonman violates at least Rules Í, 2, and 4; compliance with Rules 
5 and 7 is certainly moot. For example, the APL/360 expressions —*/ó and ~~a/0 both translate to 
77%/0,ап4 89 different APL/360 expressions translate 105 7771 | {#=#= {violates Rule 1); extensions to 
existing APL/360 operators (e.g, monadic = ) will yield syntactic ambiguities (violates Rule 2); 
and the changed meaning of certain operators (e.g.,* алд! ) could lead to confusion (violates Rule 4). The 
possible syntactic ambiguities alone destroy any usefulness otherwise demonstrated. 


It is clear that proposed Key Word representations satisfy all seven rules, but protests have been voiced 
about the loss of symbolism inherent with such notations; this is a matter of personal choice. 


Table І displays a proposed limited-graphic character set for both teletypes and ІВМ 029 key punches. 
This notation rigidly follows Rules 1, 2, 3, and 4 (except that the underscored alphabetics A through Z are 
not permitted), Rules 5 and 6 are obeyed whenever possible. The degree to which this notation is readable 
is certainly open to debate, but it is as least as clear as any other proposed symbolic representation, 


All digraphs are composed of a 5 followed by another character. Graphics common to both teletype 
and key punch character sets are used uniformly. Special characters which are up-shifted alphabetics are 
tepresented by 5 followed by that alphabetic. When used with relational operators, $ indicates “not” ; 
€g., S< represents 2 or “not less than’ 
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APL 


eet ere ben HD сву уни л 


Amor ane 


ea 


TABLE 1. APL Graphic Set Equivalences 


CARD APL 
55 ` 
% . 
< ' 
$> 0 
х ! 
s< т 
> ° 
= . 
5% ? 
58 Р 
+ г 
e * 
` “ 
5 . 
Уг > 
( + 
› * 
% Н 
$) ^ 
7 8 
$/ 
` Ф 
. ç 
* е 
i 1 
SA 4 
$B М 
sc + 
sb ж 
$E ` 
$G AtoZ 
58 9 to 9 


TTY CARD 
$1 $1 
$J 52 
' H 
$L $L 
$M ' 
SN $N 
$o so 
М . 
? ? 
58 $R 
$s $s 
$T 5Т 
50 50 
sv sv 
$w sw 
sx $x 
+ 23 
52 52 
Н : 
. . 
5" 5" 
5% $4 
$8 $ 
5% $+ 
$+ $e 
s: $: 
$6 $6 
$9 $9 
$? $? 
58 s< 
$- $- 
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ON HOBBITS AND THE GROWTH OF APL 


C. Victor Bunderson 
С.А 1. Laboratory 
University of Texas 

Austin 


When J. R. В. Tolkien was in the process of writing The Lord of the Rings!, the unfolding of the tale 
was apparently as much a process of discovery as of definition or creation, That is, as each part of the tale 
unfolded, it has to “fit” with the rest of what was known and felt about Middle Earth and its inhabitants 2 
While an elaboration or extension would open up new vistas for the author and his readers, it could not be 
put down unless it had a sense of rightness, and a “ring of truth”. The bocks are characterized by integrity, 
courtesy, a sure sense of what will bring pleasure to readers, and a sense of what will motivate them to 
read further, as well as bring them back for second and third readings. These values have captured the 
imagination of millions of readers, young and old. Not only do these enthusiasts buy books and records 
for themselves, they proselytize others. 

APL isan invention which is still in the process of being unfolded, In use, it can be profoundly eloquent 
and powerful, but its simplicity, integrity, and courtesy enable it to speak to a wide audience, not just a 
narrow audience of experts in programming and systems. This wider audience includes those who value 
computer programming and mathematics as a tool, but who are unwilling or unable to spend the time 
struggling with arbitrary, unnatural, or unnecessarily abstruse ways of denoting concepts and relationships, 
The term “elegance” as used by mathematicians has come to connote a certain conceit . . . a willingness 
and, indeed, a pride in choosing conventions for documentation that speak to only a small and select 
audience. 

It is very easy for systems programmers to speak in the language of their in-group when adding 
capabilities to APL. It is far harder to discover a notation and implementation that will “fit” with APL 
with the same naturalness and sense of “rightness” that now enables amateur programmers from many 
disciplines, after a certain amount of experience with APL, to figure out what an operator or statement 
they have never used ought to do. 

At the APL users meeting at Goddard, there was no disagreement that extensions in the semantics of 
APL were necessary, and indeed that there were still a number of unnatural aspects in current 360 
implementations. There was sharp disagreement regarding the form of notation and implementation for 
desirable extensions. This letter is an appeal to the systems programmers now developing new implement- 
ations of APL to consider the amateur programmer ip your implementations. Make it possible for him to 
intuit the notation and syntax, given an understanding of the semantic concepts, from the gound-rules of 
the language. Consider the fact that at least two amateur users at the meeting, working with computer 
assisted instruction, have independently and (in one case at least) without knowledge of IBM work on the 
unquote function, “discovered” it as a way to implement desirable solutions to their programming problems. 

There may be better, more natural, and more general solutions. Make your cases for them. Please 
remember, however, that while an astronaut in concept may be an interesting character to introduce into 
the saga of Middle Earth, your readers will surely be confused if you dress him in a space suit made by NASA. 


T Tolkien, J. В. R., The Lord of the Rings Trilogy, Ballantine Books, New York 


2« at about that time we had reached Bree, and І had then no more notion than the Hobbits had of 
what had become of Gandalf or who Strider was; and І had begun to despair of surviving to find ош”, 
р. 2 from Tree and Leaf, Tolkien, J. К. R., The Tolkien Reader, Ballantine Books, New York, 1966, 
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UNIVERSITY OF WASHINGTON 
IMPLEMENTATION 


Mary Zosel 
Computer Science Group 
University of Washington 


APL/B5500, as implemented by Computer Science students at the University of Washington, is designed 
to service eight remote model 33 teletypes on the B5500 while allowing background processing to proceed 
normally. Tue implementation uses ceserved words for operators. The transliteration chosen (see attached 

е) omits several obvious characters, including», <, !,2,because these characters have special control 

functions on the B5500 remote system at the University of Washington. The execute operator (monadic 
epsilon) is included in the implementation. 

Design has intentionally been kept as close to APL/360 as possible, in order to minimize confusion to 
the user, however, the following variations are included in the implementation. 

Labels in functions are treated as local variables with initial values (the line numbers on which they were 
defined). They may be used and redefined in an expression like any other local variable. Function line 
numbers are resequenced only at user request. 

The line editing provided (in addition to the regular line and character erase of the B5500 system) takes 
the following form: «search string» " «insert string» "«search string». The editor matches the first 
occurance of the first <search string> in the line, inserts the <insert string> at the end of the matched 
string, and then deletes all characters up to an occurance of the second «search string». For example, 
the string "THE FAT САТ” is changed to “THE FATTER CAT" by the edit command AT” TER"C. 
While defining functions, an edit command may be applied to any line or sequence of lines in the 
function. It may also be applied to edit the last expression entered while the user is in immediate 
interpretation. 

The implementation uses a virtual memory system (3), with each active user's memory maintained in 
the virtual memory (hence no arbitrary limits on workspace size). Only the variables and function lines 
actually being used by an expression are brought into APL’s central memory, as they are needed. The 
virtual copy of the workspace is updated only when an expression (and all the functions it invokes) has 
been successfully executed. However, if the user enters suspended mode due to an error, or depression 
of the break key, he has the option of storing the temporary results into his permanent workspace copy. 

A few other differences result from the difference in the computers. The workspace load, save, atid 
security commands reflect the parameters necessary for the B5500 disk system. Overall size of any AFL 
array is limited in order not to choke central memory of the B5500. 

APL B5500, written in extended ALGOL with some stream procedures, is available for any B5500 with 
a remote handler like the one at the University of Washington. Burroughs is currently working on a modif- 
ied version of the program which will run under the standard MCP (operating system). This version, when 
completed, will be submitted to the CUBE user's group. 


REFERENCES 


(1) Kildall, Smith, Swedine, Zosel, Preliminary APL 85500 Manual, University of Washington Computer 
Center, Seattle, Washington, 1970. 

(2) Kildall, G., АР1/В5500: The Language and Its Implementation, Tech. Report No. 70-09-04, 
Computer Science Group, University of Washington, Seattle, Washington, 1970. 

(3) Kildall, G., Experiments in Large Scale Computer Direct Access Storage Manipulation, Tech. Report 
No. 69-01-01, Computer Science Group, University of Washington, Seattle, Washington, 1969. 
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APL 360 to APLBS500 Transliteration 


APL 85500 MONADIC FORM ү DYADIC FORI А 

+ + identity addition H 
- - additive inverse subtraction 

x : sign multiplication 

+ 4 mult inverse division ! 
= a exponential exponentiation l 
° LOG natural logarithm logarithm 

r CEIL or MAX ceiling maximum 

l FLR or MIN floor minimum 

| ABS or RESD absolute value residue 

H FACT or COMB factorial combinatorial ! 
? RNDM random number random deal | 
2: NOT negation 

° CIRCLE circular circular 

< 155 less than 

< LEQ less or equal 

а = equals 

х NEQ not equal 

: GEQ greater or equal 

+ GTR greater than H 
А AND and 

ы OR or 

^ NAND nand 

^ nor 

1 index generator indexing 

* б ravel catenation 

R TRANS transpose 

1 BASVAL base-2 value base value 

T n 

< menbership i 
+ execute string take 

М drop 

2 heterogeneous output 

/ Qr es; 

\ і зсап expansion 

i PHI reversal rotation 

SORTUP sorting up 
* SORTDN sorting down 


APL 360 APL 85500 


USAGE 


return key - 


end of message signal 
input or display 
character input 
transfer control 


assignment 


догь 


$ 


"string" 


subscripts 
minus sign 
power of ten 

function definition 


string quotes 
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ALGORITHMS 
Number 36 FUNCTION TO EVALUATE pay - AY 


Theodore A. Bickart 
Donald W. Melvin 


Electrical Engineering Depastment 
Syracuse University 
Syracuse, New York 13210 


The APL/360 function displayed in Figure | implements the Faddeev algorithm* for evaluation of the 
таігіх(уу- A] ^, where ^ isa scalar variable and U is а unit matrix of the same order as the square matrix А. 


Figure 1. APL/360 Function FADDEEV 


9 FADDEEV A;Q;N 
{1] DET" 2*0pADJ-((1eN) 9, B)p1, (НерАГ1; 1}00 
(22  »2=1(oDETIS"itoADJLODET::]+QrADJ[p1tDET;; ]x 
Т1+рЕТ+рЕТ,(+/ 1 2 2 @@+*АБУ{рОЕТ,;]+.хА)+-р 
DET 
v 


The matrix[Ay - AT is related to its adjoint and determinant as follows: 


аа - 4] = at цэнэ» "ЭЭЛ 
and 
det - А] = apts a rt 


Now, the function FADDEEV creates two global quantities, ADJ and DET. ADJ is an array of rank 
three with ADJ[I;;] being the (1-1)- st coefficient matrix B; ,. DET is an array of rank one with DET[1] 


being the(I-1)- st coefficient ayy: A check on the accuracy of this implementation of the algorithm is 
provided by the elements of ans{n+1;; }; if the arithmetic could be accomplished without error, these 
elements would be zero. Note: ADJ(N*1;;) is not one of the coefficient matrices пав (Ас - 43.A sample 
execution of FADDEEV is displayed in Figure 2. 


* See рр. 177-182 of V. N. Faddeeva, Computational Methods of Linear Algebra, Dover, (New York: 1959). 


4 
22 6 13 11 17 
20 7 284 2 10 
8 3 23 12 18 
w 9 5 19 36 
21 15 1 іч 25 
FADDEEV A 
DET 
796 2417 733151 
aby 
1 о ° 
5 1 о 
° ° 1 
o ° o 
° ° 9 
77 26 13 
20 89 2% 
з з 773 
4 з 5 
21 15 1 
1515 7s uu 
7930 215% “1308 
78 228 992 
„336 7351 14 
665 7705 655 
14218 7156 6527 
1766% 720533 12318 
2378 75268 75865 
6580 2581 2182 
3901 9810 711384 
52765 7393 728269 
77790 64625 733470 
14800 23081 10273 
51390 ^ 6522 “33081 
25835 735715 61920 
о ° ° 
о ° ° 
° ° ° 
° o ° 
о 0 ° 
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234726 7627785 


° ° 
о ° 

9 ° 

1 ° 

° 1 

11 17 

2 19 

12 18 
777 16 
14 771 
7199 7363 
508 164 
7302 7506 


1300 758% 
"485 1391 


1309 3643 
79622 7$$1ч 
396 3980 
713485 8654 
9964 “12222 


72513 713761 
41040 24880 
8586 711989 
58933 746254 
755855 48130 


ооооо 
ооооо 


РРР ЕТА НЕ 


ne 


Ë, 
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The function FADDEEV can be used to impiement the Decell algorithm® for evaluation of P! , the 
Moore-Penrose psuedo-inverse of the real matrix р. Letä= A'aand let m be the largest integer I such 
that a ў о. Then 


pa- By У for M> Land PT = Q for M= 1. 


E 
Ч, 
Note: When р is а non-singular square matrix, Р Tu pl 


The function DECELL displayed in Figure 3 is the implementation of this algorithm. The value of м is 


determined not by: M is the largest т such that a, #0 , but rather by: М is the largest I such that 
-10 


lel» lal x 1077. 


Figure 3. APL/360 Function DECELL 


% Z«DECELL P;M;Q 
Са] PADDEEV(Q+ 2 1 &P)+.*P 
{21 z-«/L11 ADJU 1 $N«CoDET) x12H1; +. х@+-РЕТСМ-1 
*CeDET)-(6CI15 10xDETU2)) « DET) 11] 


This allows for the fact that the arithmetic is not accomplished without error. A sample execution of 
DECELL is displayed in Figure 4. 


Note, when м = 1, that the function DECELL uses AD3[N+1;;] to construct ғ > 0. 


Figure 4. Sample Execution of DECELL 


P 
1000100 
0100010 
9010001 
DECELL P 
0.5 o ° 
° 0.5 ° 
° o 0.5 
° ° 9 
0.5 ° ° 
° 0.5 0 
° ° 9.5 


9 See Henry Р. Decell, Jr, “An Application of the Cayley-Hamilton Theorem to Generalized Matrix 
Inversion,” SIAM Review, Vol 7, No. 4, October 1965, рр. 526-528. 
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Number 37 READING MULTI-ADIC FUNCTIONS 


Raymond J. D. Reeves 
Staff Analyst 
Honeywell Inc. 

E, D.P. Division, 

200 Smith St, 
Waltham, Mass. 02154 


The following routines describe and illustrate a technique for reading multi-adic functions in APL. 
The final example is for the solution of linear equations by the method of conjugate gradients as described 
by F. S. Bechman!. 


* 1 А. Ralston and H. 5. Wilf 
Mathematical Methods for Digital Computers - Wiley 


‘A LINK В’ links the arbitrary variable A to the self-describing vector B and returns a self-describing 
vector. о is a self-describing vector. 

оета the head of а self-describing vector called STACK, which is global to POP, and reduces 
Any number of Parameters may be passed to a function by using LINK in the argument of a function call, 
"STACK' as the corresponding parameter in the function definition, and ‘POP’ in the body of the definition. 
Excessive calls of POP return zeros. 

The technique may be applied independantly over a number of functions provided the scope of STACK is 
unique to each application. 

Recursion is not inhibited. 


Eg. 512 X LINK Y LINK Z LINK 10 


TPOPLNIF 
Z=POP;DINS;SHAPESELS 
[1]  DIMSe \+5ТАСК 

(21 STACK 1+STACK 

[3] SHAPE+(-DIMS)#STACK 
(81 — STACK-(-DIMS) STACK 
[5] — ELS-x/SHAPECVDINS] 
(61 Z+SH#APEp (-ELS)+STACK 
(71 — STACK-(-ELS) STACK 


EI 


VLINKLOIV 
9 Z-A LINK B 
[1] 208,(,4}, (pA). ppd 
2 
9572009 
$ 572 STACK 
[1] POP 
[2] POP 
[3] РОР 
[a] РОР 
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SYZ А LINK X LINK K LINK i0 


ФСОМСВАРСЦ17 
1 9 X=CONGRAD STACK; I L; ALEHA: РУВ;АЗАР. АТВ 
1+0 
\ L+? 
1 A+POP 
1 ATR+ P+ (QA) +. xR POP А+. xX*POP 
2 LC2]-(SATR) +. xATR. 
] Li:L-19L 
) AP+A+.xP 
1 ALPHA*LU1]1(84P) ж. «AP. 
1 XeX«ALPIIAxP 
0 ReR-ALPHA*AP 
1 АТВ+ (ВА) +, xP 
2 EL2}+(QATR) +. ХАТА 
3 РедТЛ»(1(21:1(11)х? 
Ж >((9Х)>14191)/11 


CONGRAD A LINX X LINK X LINZ 10 
123 
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Number 38 TARGET 


Frederick H. Bell 
University of Pittsburgh 
Pittsburgh, Pennsylvania 15213 


John J. Boyer 
Clarion State College 
Clarion, Pennsylvania 16214 


The following is an APL algorithm, together with sample output, which is a modification of Dennie Van 
Tassel's BASIC program, “Time for Target Practice”, found in the March, 1970 issue of Computer Decisions. 
The computer game TARGET tests the skill of a player in estimating the degree of elevation necessary to 
cause a gun to hit a target whose distance from the player's position is selected at random. The player is 
given one practice session to zero in on the target, then he may call for new targets which will shoot back at 
him until either his position or the target is destroyed. 


Reference 
Van Tassel, Dennie, “Time for Target Practice," Computer Decisions, Vol. 2, No. 3 (March, 1970), 15. 


Я TARGET 
(11 10 
[2] THIS DEMONSTRATION SIMULATES THE RESULTS ОР PIRING' 
[3] "А FIELD ARTILLERY WEAPON. YOU ARE THE OPPICER-IN-CHARGE,' 
[4]  'GIVING ORDERS TO THE GUN CREW, TELLING THE DEGREES" 
[5] "ОҒ ELEVATION YOU ESTIMATE WILL PLACE THE PROJECTILE ОН" 
[6]  'TARGET. А RIT WITHIN 100 YARDS OF THE TARGET WILL' 
[7] ‘DESTROY IT.' 
(81 10 
[9] — 'WAXIMUM RANGE OP YOUR GUN IS 86,500 YARDS." 
[10] 10 
(11) като 
[12] RAND:T+?41000 
(13) >(7<50000) /RAND 
[14] 5+0 
(151 KWT+KNT+1 
[15] +(КИТ<2) / START 
[17] RET:RTN-?10 
[18] (RTN<3)/RET 
[19] -START 
[20] MINEL:'MIN. ELEVATION OF GUN IS 1 DEGREE." 
[21] +READ 
[22] MAXEL:'MAX. ELEVATION ОР GUN IS 89 DEGREES.' 
[23] -READ 
[2%] OVER: OVER TARGET BY ';|E;' YARDS." 
[25] +CKNT<2) /READ 
(261 'ENEMY SHELL LANDED ';RTN2;* YARDS FROM YOUR POSITION.' 
[27] +(RIN=S)/END 
[28] “явар 
1291 SHORT:'SHORT OF TARGET BY ';|E;' YARDS.' 
[30] -(XNT«2) /READ 
(311 'ENEMY SHELL LANDED 'iRTN2i' YARDS PROM YOUR POSITION." 
(321 +(RTN=5)/END 
[33] RE, 
[34] HIT:'*«« TARGET DESTROYED *** ";5;' ROUNDS EXPENDED' 
[35] 10 
[36] “ТНЕ FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY.' 
(371 “ІР YOU WISH TO CONTINUE ENTER ''CHARGE'',' 
(за) OTHERWISE ENTER ''RETREAT''." 
[39] CONTA 
[40] +(6=pCONT) /RAND 
(411 +0 
[42] START:' ' 
[93] 10 
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(441: 'DISTANCE TO THE TARGET IS *;7;" YARDS.’ 
[453 »(KRT<2) /НЕХТ 

[us] ‘МНЕ ENEMY WILL ВЕ RETURNING TOUR PIRE.' 
(47) ZEXT: 10 

Laa] READ: ' ELEVATION?" 

[ug] 50 

(501 +(B=90)/DUMB 

[51] +(8>90) /МАХЕЕ 

[52] -(B«1)/NINEL 

[53] 5+5+1 

[54] +(К#Т<2)/СОН 

[55] RET2:RTW2«2 (100xRTN)-S-1) 

[56] (RIN2«(100xRTW) -5x100) /RET2 

[57] С0М:Ечі (0.5*T-u6500x10(2xBt57 .3)) 

(58) -(100»|E)/HIT 

(591 -(E»100)/5H0RT 

[60] «(Ёс 100)/0/ЕК 

[61] +0 

1621 DUMB:'YOU DAMN FOOL, YOU DESTROYED YOUR OWN POSITION! 
[63] 79 

1681 END:'TOUR POSITION HAS BEEN DESTROYED BY THE БИБМҮ!! 


TARGET 


THIS DENONSTRATION SIMULATES THE RESULTS OF FIRING 

A FIELD ARTILLERY WEAPON. YOU ARE THE OPFICER-IN-CHARGE, 
GIVING ORDERS TO THE GUN CREW, TELLING THEM THE DEGREES 
ОР ELEVATION YOU ESTIMATE WILL PLACE THE PROJECTILE OW 
TARGET. A HIT WITHIN 100 YARDS OF THE TARGET WILL 
DESTROY IT. 


MAXINUM RANGE OF YOUR GUN IN 46,500 YARDS, 


DISTANCE TO THE TARGET IS 15819 YARDS. 
BLEVATION? 
0; 


80 
wee TARGET DESTROYED ww* 1 ROUNDS EXPENDED 


THE PORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY. 
ІР YOU WISH TO CONTINUE ENTER ‘CHARGE’, 

OTHERWISE ENTER 'RETREAT'. 

CHARGE 


DISTANCE TO THE TARGET IS 15897 YARDS. 
THE ENEMY WILL BE RETURNING YOUR FIRE. 


ELEVATION? 
А 80 
++» TARGET DESTROYED жээ 1 ROUNDS EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED NORE SHEMY ACTIVITY. 
IF YOU WISH TO CONTINUE ENTER ‘CHARCE', 

OTHERWISE ENTER 'RETREAT'. 

CHARGE 


DISTANCE TO THE TARGET IS 24195 YARDS. 
THE ENEMY WILL BS RETURNING YOUR FIRE. 
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ELEVATION? 
13 


75 
SHORT OF TARGET BY 937 YARDS. 
ENEMY SHELL LANDED 98% YARDS FROM YOUR POSITION. 
ELEVATION? 
a: 
73 
OVER TARGET BY 1815 YARDS. 
ENEMY SHELL LANDED 865 YARDS PROM YOUR POSITION. 
B: 
74.3 
wax TARGET DESTROYED *** 3 ROUNDS EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY. 
ІР YOU WISH TO CONTINUE ENTER 'CHARGE', 

OTHERWISE ENTER 'RETREAT', 

RETREAT 
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Number 39 AIRLINE RESERVATION SYSTEM EXAMPLE 


Al Rose 
Scientific Time Sharing Corporation 


The airline reservation system presented here is typical of many inventory applications in which several 
people must access and modify a data base, in real time. The reservation system consists of a “control 
center", which makes available an inventory of airplane seats, and any number of “agents”, whose task it is 
to sell the available seats. 

To initialize the system, the control center creates two files using the program 22222 . The first of 
these files, named inventory, holds the currently available number of seats for each of a number of flights. 
The second file, патей22422427жШ hold a record of each transaction made by the agents. 

The control center operator makes more seats available (by simulating departures and arrivals) through 
the use of the2£PGEU I Zu program. The operator enters the flight numbers and the number of additional 
seats to be made available an those flights. 

Agents place orders against the inventory through the use of the program 24182 . An entry here should 
be a two-element vector consisting of which flight number and how many seats are requested. For the 
purposes of the example, a reward structure is built into the sales program: orders which can be filled yield 
the agent one dollar each; orders which cannot be filled cost the agent 50 cents per seat; and invalid entries 
reduce his earnings by one-half. 

Entries of the first two types above are recorded on the transactions file, The programgasaay&which is 
run by the control center, prints the transactions of the agents in real time, identified by tume, city, and 
nature of transaction. When there are more than ten transactions waiting to be printed, the observe program 
blocks further transactions by the agents until printing has caught up again. 


FILE ORGANIZATION 


SUPPLY FILE 

AGENT ` ШШШ —- (Сонтвоў 
Хо CENTER 

AGENT c еа 


AGENT = TRANSACTION FILE 


Teent Гкосгаг 


VSALESLN]F 
9SALES;STOP;B;P;A;INV 

fi] STOP+*1 

[2] +ORDwın/ 1 2 eFNUMS 

L3] (OWNER, ' SUPPLY') FSTIE 1 

Съ] (OWNER,' TRANSACT') FSTIE 2 

[5] ORD:,'MEARNINGS: М,Р9.2,13,МЕМТЕН ORDER АРМТ EARN 

[6]  DONEXıSTOP=1+P,D 

(71 зОВрхї0-0Р 

[8]  -ERxi2zpP 

[9]  «ERxv- (Ael tP)ei10 

[10] +в ях Вх ГвеічР 

[11] FEOLD 1 

[12] INV-PREAD 1 1 

[13] -WOTXiINVL11«B 

[10]. INVLA]-INVLA]-B 

[15] INV PREPLACE 1 1 
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[16) FHOLDAO 
[17] ‘ORDER FILLED' 
[18] (1,P,EARN-EARN+B) PAPPEND 2 
(191 +oRD 
1201 NOT:PHOLDiO 
[21] 'ORDER CANNOT BE PILLED' 
(222 'ONLY ';INVL[A];' ON HAND' 
[23] (0,Р,БАВИ«ОГЕАВН-0.5х8) FAPPEND 2 
[24] +080 
[25] ER: "INPUT ERROR--ORDER NOT VALID" 
[26] FARN«EARN*2 
[27] -ORD 
(281 DONE: 'YOUR EARNINGS ARE ',.'Р10.2' АРМТ EARN 
[29] PUNTIE PNUMS 
v 


Control Center Provrans 


Ч5ЕТИРІП1У VREPLENISELUDV 

$ SETUP;A X VRReREPLENISH ТНУ 3X 3¥ 
(11 OWNER+,'I10" AFMTI29 [1] RRO 
[2] ‘МНО IS TO SHARE?! [2]  'WHICH ONES?' 
(31 As(Azr29)/4+,O (31 142 
(9) 'SUPPLY' FCREATE 1 [9]  «Efi^/Iei10 
(5)  'TRANSACT' PCREATE 2 CS]  'HOW MUCH BACH?‘ 
[6] Х«С(о4),3)р0 (6) «ERI v. #1 118,0 
[7] ХС [7] -#ma(or)zoy 
(81  X(;2]«85 [8]  PHOLD 1 
(9) xX FSTAC 1 [9]  INV-PREAD 1 1 
(10) Х1:21%8 [10] INV[X)=INV[X)+Y 
[11] X PSTAC 2 [11] INV FREPLACE 1 1 
[12] FUNTIE 1 2 [12] (2,INV) PAPPEND 2 
[13] *SUPPLY* PSTIE 1 (131 FROLD.O 
(14) 'TRANSACT' PSTIE 2 1141 +0 
[15] NEXT+1 (151 ER:'INVALID ENTRY, TRY AGAIN.' 
[16] (1000) FAPPEND 1 [16] +1 

Y 0 

VOBSERVELUIY 

V ЕН+ОВ5ЕНУЕ,2МТЕХ 

[1] А10 


[2] -=50х1л/ 1 2 ePNUMS 
[3] 'SUPPLY' PSTIE 1 
(ШІ — 'TRANSACT! FSTIE 2 
(5) 50:5V-0 
(61 МХ 3 16 р’ #0,21%,Р9.20 1593,2Г4,79.2 MOREM, 24,2074" 
(71 S1:-0KxuWËXTz1+PLIM 2 
Сај "CAUGHT ОР! 
(91 FHOLD Sw+o 
[10] 85:081АҮ 2 
[11] з0КхАНЕХТХЇЭРЫГН 2 
[12] +55 
[13] OK:Z-(PRDCI 2,NEXT),PREAD 2,NEXT 
(181 (8*9 TIME ZL31),CITIESLANUM ZU 21; 1, NMTRX[1+Z[s];] АРМТ(11)%.х5%2 
[15] #ЕХТ+#ЕХТ+1 
[16] -*Sixi(GWz1)WEXT2 10+1+PLIN 2 
(171 "HOLDING! 
[18] 5941 
[191 FHOLD 1 2 
(20] -+51 
7 
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Pertinent Global Variables 


1541,16" АРМТ (CITIES;ANUM) 


EARE ar. їзїї 
о А. 1412 
НЕХТ Р.А. 1313 
1 TOR 1914 
7723 PHIL 1415 
78974 WASH 1416 
w HQS 78974 
0 MTL 1517 
OTT 1418 

ANY 


060) 15.53.45 08/18/70 AJROSE 
APL PLUS SERVICE 


)TABS $ 
WAS 0 


)LOAD 1 FILES 
SAVED 20.32.24 07/27/70 


DESCRIBE 
WORKSPACE 1 FILES 


THIS WORKSPACE CONTAINS FUNCTIONS FOR USING APL PLUS DATA 
FILES, AS DESCRIBED IN APL PLUS FILE SUBSYSTEM, 
SCIENTIFIC TIME SHARING CORPORATION, 1970, AND AVAILABLE 
PROM SCIENTIFIC TIME SHARING CORPORATION AND I. P. SHARP 
ASSOCIATES LTD. THE FOLLOWING FUNCTIONS ARE PROVIDED: 


PAPPERD PLACES А NEW СОМРОНЕНТ ON A FILE 

FCREATE CREATES AND OPENS A NEW FILE 

PDROP DELETES COMPONENTS FRON A FILE 

FERASE ERASES A FILE 

PHOLD REQUESTS TEMPORARY SXCLUSIVE USE OP FILE(S) 
PLIB NAMES OP PILES IN LIBRARY 

PLIM GIVBS FILE COMPONENT NUMBERING 

FNAMES NAMES OP FILES CURRENTLY TIED 

FNUNS NUMBERS OP FILES CURRENTLY TIED 

FRDAC GIVES PILE ACCESS AND LOCK INFORMATION 
PRDCI GIVES COMPONENT INFORMATION 

FREAD READS A COMPONENT FROM A FILE 

PRENAME. CHANGES LIBRARY NUMBER AND NAME OP A FILE 
FREPLACE. REPLACES A COMPONENT IN A FILE 

PSTAC DEFINES ACCESSES AND LOCKS FOR USERS 

FSTIE OPENS FILE FOR SHARED USE 

FTIE OPENS PILE FOR EXCLUSIVE USE 

FUNTIE UNTIES FILE(S) 

PE PRIMITIVE PILE PUNCTION UPON WHICH ALL OF 


THE ABOVE ARE BASED, REQUIRED FOR USE OP 
ANY OF THE ABOVE. 


THIS VARIABLE, DESCRIBE, MAY BE ERASED TO CONSERVE SPACE. 
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„late news.. 


There appears to be a possibility for the APL community (Dare we say 
Corps?) to meet in Livermore, California, on perhaps April 20-21, 1971, 
with Livermore Radiation Lab as our host. 


Of course, prime topics of interest there would be LRL's implementation 
of APL on the CDC 7600 to get things warmed up and of course the CDC STAR 
and its APL, 


Sam Mendicino is checking into details on that end, and Connie Wogrin, 
Karl Korn and Harvey Bingham comprise the committee which will handle 
arrangements on behalf of the APL community. 


Would the readership favor a Journal of APL, appearing quarterly with 
an editorial board reviewing papers and published by a formal publishing 
house? 


Under such a plan the Quote-Quad would be absorbed or become an 
identifiable part of the Journal. 


Please let us know what you think about this as it is vital to the 
continuation of the flow of published information on APL. 
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APL Users. Short articles, programming notes, signed 
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All published opinion 18 that of the CONTRIBUTOR 
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ANNOUNCING... 


The great (?) inner products contest! 


Send us your favorite and most expressive use of the 


inner product. 


Rules are simple: 
1) Only one entry per person. You may give as many 
examples on a single entry as you please. 
2) A brief example and explanation of each inner 
product is required. 
3) The entry + . x is not permitted except by 
management and APL salesmen. 
4) Explaining x · + places you in a special category. 
5) Contest closes 31 March 71. 
6) Prize to be determined by editors. 
7) All entries to be sent to Garth H. Foster 
Electrical Engineering Department 
101 Link Hall 


Syracuse University 
Syracuse, New York 13210 
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editorial 


For this issue of Quote-Quad we have been able to have the layout done 
professionally. The improvement in appearance and readability is obvious. 
The larger type occupies more paper, but disguises the disappointing fact 
that the rate of material submission for Quote-Quad has slowed down again. 


How long it will take for a proper publication to replace Quote-Quad is 
difficult to ascertain. Only one more issue of this volume of Quote-Quad 
is projected. In the meantime, what kind of articles should be appearing 
in Quote-Quad? 


The most fruitful! topic has been on various transliterations for non — 

IBM 2741 keyboards — the most frequent algorithms have been 1130 user 
difined functions to replace missing primitives. Quote-Quad has served a 

useful purpose in communicating this information. IBM—360 users with 

none of these problems have had a well documented article on fixes which 

are all to be included in the new program product. Since the proceedings 

of the NASA Conference were not published a useful purpose has also been 
served in the publication of some of the material presented at that conference. 
However, despite the fact that APL is expanding into so many new applications 
which require rethinking, modifying or extending the language — few people 
have been prepared to discuss theory rather than implementation and application. 


The first real expansion of APL to something more than a terminal system for 
small problems has been in the implementation of file systems. All of these 
have carefully avoided the theoretical issue by use of reserved words or by 

the addition of a new primitive — both of which methods conflict with the 
IBM use of system commands for extra workspace activity and disguise the 
fact that this is a different level of activity from manipulations inside the 
workspace. However, until IBM pontificates on their file system language it 

is difficult to conceive of anyone tackling the problem in a different way. For 
obvious reasons IBM will never pontificate until they have a program product 
to offer. 


Will the current growth of dialects of APL continue with implementors looking 
over their shoulder to see what IBM is going to do — or will the necessary open 
discussion of ideas ever precede implementations? Time will tell. 


Also included is most of the minutes to the SEAS Meeting on our APL Group 
in Europe, which seems to indicate that they are further ahead than we are in 
the formation of user's group. 
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STSC claims to have improved the speed of execution on the IBM DOS 
implementation by 50 per cent by redesigning the syntax analyser. Larry 
Breed also claims that large data base applications have become the fastest 
growing segment of STSC’s business. 


IBM have produced a special plotting typeball (No. 1167114 ) 
with different positioned dots. This can be used with a slightly modified 
PLOT function to produce graphs of much better resolution. 


The committee appointed to arrange a time and place for the next users’ 
conference has come up with one at Stanford in April. More details will 
be given in the next issue of Quote-Quad. 


Garth suggests that this should be the year of the APL button at SHARE. 
Suggested designs should be sent to: 


Professor Garth Foster, 

Dept. of Electrical Engineering 
Syracuse University 

Syracuse, N.Y. 13210 


The best and selected design will be printed in Quote-Quad. 


Details of the March SHARE conference APL project are given in the 
“Calendar of events”. 


There is a rumour that IBM is working hard at producing a file system for the 
program product. 
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articles 


SEAS APL Working Committee's Meeting 
Copenhagen October 12 and 13, 1970 


(The following is an abstract of the minutes of this meeting.) 


The first meeting of the committee was held 12—13 October, 1970 at 
NEUCC, Lyngby, Denmark. In attendance were the Chairman, Mr. Philip 
S. Abrams, the Secretary, Mr. Niels Gellert, and 26 members representing 
15 installations. 

As the meeting was the first and an organizational one, an essential point 
was to give the participants the opportunity to get acquainted with each 
other and the problems in regard to APL. 


l. Criteria for Membership of the Committee. 

The APL committee of SEAS is different from other special interest groups 
in that its members are concerned not only about a program product (APL/ 
360) but about a language and a philosophy of computing. In particular 
there may be people wishing to participate who are not SEAS members. 
Further, each SEAS committee is allowed to make its own criteria for 
membership. It was suggested that everybody who uses IBM-APL in Europe 
can be a member, even if their machines are smaller than model 44. 


The following points were raised with respect to this suggestion: 

(a) What about the many users of a commercial or university 
installation? 

(b) There should be only one vote for each SEAS member install- 
ation represented. 

(c) There is not a company behind every user. 

(d) Two sorts of interest groups exist: People interested in imple- 
mentation and those interested in the language, where the last 
also consists of interested users. 

The result of the discussion was that the following criteria for membership 
were decided: 

Either membership of SEAS, or installation with a model 40, or special 
interested (IBM??) APL users could be admitted to the meetings. However, 
in policy matters, only SEAS members will be allowed to vote, with one 
vote for each member installation represented. 


2. Language. 
English is the common language in the committee, but sub-groups could use 
another languege internally if convenient. 


3. Objectives of the Committee. 

a) Standardization of APL. 
In U.S. the first non-IBM implementations have tried to imitate 
IBM-APL. 
What can the group do for standardization? Is the situation now 
like the situation around ALGOL about the beginning of the 
sixties? 
A formal definition of APL was stated as a very important subject 
for the committee. 
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b) IBM policy, announcement and pricing. 
The announcement of APL’s availability as a class A product in 
U.S. from December 1970 and not in World Trade resulted in 
many remarks and the following unanimous resolution from the 
meeting: 
“That IBM make every possible effort to eliminate the time lag 
between U.S. and European announcement and availability of 
products, maintenance, support, and documentation referring to 
APL.” 


It was suggested, that IBM should send an official representative to the meet- 
ings in the working group. 
c) Education in APL. 
The language and its possibilities as a general problem formulation 
language was mentioned. Why APL and not another language? 
What about APL scientific library package? What can we do to 
broaden the range of general information available? 
d) IBM documentation of APL. 
The existing manuals for APL are good but not complete. (It was 
noted that in the announcement of APL as a class A product, a 
program logic logic manual is to be available.) Also it would be 
desirable to have the major namuals available in French and German. 
е) The discussion resulted in the following list of objectives for the 
committee. 


Objectives of the SEAS APL Committee. 

1) to share experiences in using APL/360 (/1130, / 370, .. ..) 

2) to provide a forum for interchange and cooperative development of 
APL programs. 

3) to indentify and evaluate problems areas with APL/360 and to discuss 
possible solutions and modifications. 

4) to discuss generalizations and extensions of the language and to formalize 
proposals for such. 

5) to establish and maintain a formal definition of APL. 

6) to provide education about APL and its possibilities (e.g. - manuals). 

7) to exchange other relevant information about APL world-wide. 


4. Status of APL in Europe. 


a) Information from the questionnaire formula distributed before 
the meeting: 


Questionnaire Summary 
Questionnaires were sent to all SEAS member installations in July1970. 
Of these approximately 100 
questionnaires sent, 35 replies were received, with the following results. 
replies were received, with the following results. 
Installations interested in participating in the APL Committee: 10 
of these, 2 had APL systems running. 
8 planned systems in the future. 


Installations not interested in participating: 25 


19 No system at present or planned 
1 Running APL/360 currently 


5 Planning or thinking about APL/360. | 
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b) It was reported that there were APL users in Italy (the German 
APL System) and in England, and it was suggested that contact 
with these groups should be made. 

с) First it was suggested to make а list of APL users in Europe, but 
after the problems about getting such a list, and protection prob- 
lems in relation to such a list were discussed, it was decided only 
to make a roster of installations. Unfortunately nobody was will- 
ing to undertake the task, and it remains as a job to be filled. 

d) World Trade: IBM Data Centers with APL: 

Helsinki 

Copenhagen (Per Gjerlov) 

Argentina (South America) 

Frankfurt (New) (Stuetz) 

Holland 

In connection with this subject the following unanimous resolution 
was made: 

“That there should be an IBM person responsible for APL in World 
Trade Europe and in major APL countries.” 


7. Program distribution. 

a) Quote Quad has started publication of programs and has described 
some standards for documentation. It was suggested that the 
committee should work with this standardization problem. — One 
of these problems is selection of medium for program exchange. 
Mr. Hendricks is investigating this problem. 

b) Mr. Van Hedel promised to take care of the program library work. 


8. The Next Meetings 
Two plans were proposed: 


Either: Grenoble in January 
Holland in June 
Pisa (SEAS) in September 

Or: Grenoble in March or April 
Meeting in conjenction with IFIP in August 
(either at Ljubljana, Yugoslavia or perhaps Paris), 
hopefully in cooperation with North American APL 
groups. Pisa (SEAS) in September. 


Found in an Empty APL Workspace 


G. Truman Hunter 
Consultant, University Relations, 
IBM, Armark, New York 10504 


Many years ago, a computer expert who was a high official in administrative 
circles of a company was approached by a young mathematician with an idea 
which the mathematician believed would be of much value to the company 

in its research, education, design, production, and marketing activities. As the 
mathematician explained in his manuscript, he had evolved a new type of 
notation for computer programming which was inspired by years of study of 
programming documentation. 
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The computer expert presumably studied this manuscript very carefully for 
several hours and then wrote the following reply. 


Your new notation for time sharing programming may have a number of merits, 
as you claim, but it is doubtful whether it would ever be of any practical value 
to this company or its programmers, even if authorized by the president of this 
company, as a proposal of this magnitude would have to be. It would be vig- 
orously opposed by the employees in general and by programmers in particular, 
principally because those who had to use it would not sympathize with your 
tadical ideas. 


Our employees compain loudly that there are too many mathematical symbols 
now. You propose to add additional symbols, called operators, when the trend 
is clearly to using more words, as in the programming languages BASIC and COBOL. 


TABLE ! 
Conventional Notation New Notation 
-X Arithmetic Negation -Х 
Х! Factorial ix 
ІХ| Absolute Value 154 
1/X 
X 1 Reciprocal +X 
eX Exponential «Х 
LN X Natural Logarithm ex 
УХ Square Root Xx „5 (dyadic) 
X Logical Negation 524 


Conventional notation is not consistant since the symbol which is the 
functional indicator may appear on the left, the right, both sides, on top, 
or be represented by an alphabetical label. 


I have looked at your table showing present conventional mathematical 
notation and those same functions treated in your new notation. I agree 
that consistency is somewhat lacking in the conventional notation on the 
left as compared to your new notation on the right. However, you then 
greatly confuse the issue by saying that the same functional operators have 
both monadic and dyadic uses which are different. 


This business is confusing enough without having double entendre meanings; 
and furthermore, you should never have brought in Latin terms because 
computing is distinctly American as you well know. 


Isee that you also use a lot of Greek letters. This is bad because you 
might say something in your new notation that would be a dirty word and 
insult some foreign government and get us all in trouble with the State 
Department. 


I have examined your proposed typewriter keyboard for this new notation, 

and I find that you have two symbols on each of the 44 keys for a total 

of 88 different symbols. Now this is far too many for the average American 

who is afraid of mathematics anyway. It is also too many to be handled by 

a simple teletype machine. It is far better to stick to the FORTRAN set of 
6. 47 symbols. After all that has been the standard for almost the entire history 
of modern computing these past 15 years. 
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For the accounting types, it is better to use no symbols at all, just use 
simple accounting terms, as in COBOL, or go to BASIC with its very limited 
set of about 17 different instructions. While you have apparently adopted 
the principal of the famous Chinese proverb, that a picture is equal to a 
thousand words, Americans already know the words but they don’t know 
your picture meanings. 


You are introducing more effort in making programmers memorize the new 
meanings of these symbols. We can not require more effort on the part of 
our programmers if we want to keep them happy. I suggest that you stick 
to your mathematical symbols and talk your jargon to mathematicians and 
leave computers and simple English language and arithemetic to the computer 
experts. 


Also, you do not have the nice clean separation of fixed point and floating 
point numbers so nicely restricted by the use of the letters IJKLM in 
FORTRAN. 


Furthur, you apparently let almost any combination of letters and numbers 
of any length be the name of a variable. This gives far too much freedom to 
programmers to exercise their imagination and that is very dangerous. 


Next you say that the variable named A can have the value of 4, a scalar 
quantity. You also say that the variable named A can have the values 
1,2,3,4,5 and be a vector quantity. Next you tell me that the variable A 
can also have the values 1 2 3 

4 5 6 which you call a matrix quantity. 


Young man, you have not learned the first principal concept of computers 
which is that they can not think. It is obvious that the computer can not 
know which forın of variable to use, or how big it is supposed to be, so 
this type of arrangement will just confuse the CPU! 


You also make the statement that there is no hierachy for function process- 
ing in your new notation as there is in the usual computer languages such 
as FORTRAN or in normal mathematics. Instead, you have substituted a 
ridiculous rule that everything will be processed in the order from right to 
left! I should like to point out that while you might be able to sell that 
idea to the Chinese, you will never sell that idea to the Americans who 
traditionally read and write from left to right and whose typewriters move 
from left to right. 


When I tried the example using your Г operator, I found that 573 and 
3[5 gave the same result. If it does not make any difference which way 
you wirte your notation, then I think your statements of consistency and 
right to left processing are ridiculous. 


You say that the monadic function, 15 yields 1 2 3 4 5 and then you say 
the dyadic function (,1)ı5 yields 2. Now this is very confusing. If you 
just take one of anything, you ought to have what you started with. 


In another example, you say that s<+/e] ?[ 2115 yields а 0. It is obvious 
that no one can make any sense out of a string of mathematical operators 
such as you give between the two fives. It does not make any sense to string 
that many operators together without getting any intermediate results out of 

7. the computer and using good single line entries for each mathematical 
operation that is desired; all of which leads to nice documentation. 
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When you talk about literals, you say that 5='5' in your notation is 

never true but that ¥O='NO' may not be true. If a person can not 

believe in literal values these days, he cannot believe in anything; and we can 
not have any such notation that would breed distrust in the computing industry. 


O+PARALLELRESISTANCE+++/+RESISTORS*40 17 36 18 
5.982404692 

O+AVERAGE+(+/VALUES)+pVALUES+40 17 36 18 
27.75 

O+HISTOGRAM+' .D’[i+Xo.2ıl /X+1 3 5428 
[Re 
006.5. 


Your “опе liners” which you tout as efficient models of programming are, I 
am sure, special trick cases. After all, who ever heard of any worthwhile 
programs being written in one line or with just one computer card? Every 
efficient operating system takes at least one card as a separator in the job 
stream and those systems were designed by some pretty smart people. As 
you can see, 1 am not easily distracted by your cute tricks. 


Your separation of “desk calculator” and “programming” modes is rather 
clever, but when I want a desk calculator, I want a desk calculator on my 
desk. I don't want to have to call someone on the telephone and ask if I 
can use it. 


When I got the hang of it, I rather liked your clever programming editing 
function. In fact, I'm going to have that built into my key punch to help 
in card editing. 


Further, you explain that your computer processor for this new notation is 
an interpreter. Everybody knows that an interpreter is grossly wasteful of 
computer time since you never compile and get a machine language program 
for speedy and efficient CPU use. Everyone knows that it is far more import- 
ant to keep expensive computers busy so that there is no wasted time of 
these devices which sometimes cost in the hundreds of thousands of dollars 

a month. Most programmers don't mind waiting а few minutes so that they 
can have a coffee break anyway. 


All in all, I would advise you to forget this proposal, return to your abacus 
or computer terminal, whichever you use, and leave the subject of computer 
programming languages to the officially designated bodies charged with that 
specific function. I am sure that they can give these matters a great deal 
more thought than you or I can. 
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Remarks About Terminal 1⁄0 in APL/360 


Philip S. Abrams 

CEGOS INFORMATIQUE 
Software Department 

107 Bureaux de la Colline 
92 — Saint Cloud — France 


Problem: 


One very apparent shortcoming of current APL implementations is the 
inability to have complete control over the terminal. It would be very 
desirable to be able to take advantage of the possibilities that are available 
in such devices as the IBM 2741. This need is especially evident in applic- 
ations such as text-editing, teaching programs and systems design, especially 
if non-APL typing elements are to be used. 


The desired features can be obtained quite simply. Note that no language 
extension is required and that implementation changes should be trivial. 


Suggestions: 

1. There must be a way to represent all typable characters and control 
functions (e.g. — backspace, linefeed) in APL. This could be done 
with a character vector, ZCODE . 

An input function like quad-quote is required with no initial carriage 
return, which gives as a result the vector of characters (from 20028) 
typed by the user. Thus, typing “A BS—” gives a vector of three 
characters rather than the single rationalized character “A”. 


A similar output function is required which types only those characters 
fed to it. 


Observations: 

1. Anything typable can be typed in or out, with the program in complete 
control. It would be desirable for the attention signal also to be avail- 
able to the program, thus allowing creation of complete subsystems. 
However this may cause interference with normal system functions and 
needs further consideration. 

These functions are slightly more primitive than quad and quote quad 
which later can be defined in terms of the new ones. For example, 
quad-quote input is equivalent to: 


ойт CR 
Z+RATIONALIZE IN 


If we admit the existence of unquote, then, following McEwan and 
Watson (APL/360 recursed! APL quote-quad, 2, 2 (July 1970) ), 
we can (almost) have the normal quad input function. 

There should be some possibility of expanding the set of characters in 
ZCODE , as there will some day be other terminals than 27415, with 
different basic functions. 
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The Ackermann Function in APL 


Theodore A. Linden 
4964 Woodward Gardens, Columbia, Maryland 21043 


ABSTRACT: A programming language — such as APL with the execute 
operator - will normally have an Ackermann rating of 
infinity if it can manipulate and repeatedly execute command 
strings with-in a single statement. 


J. A. Brown in the April 1970 APL Quote-Quad raised the idea of rating 
programming languages by the highest level j of the Ackermann function 
A for which there is a closed, non-recursive experssion for j А п. He also 
showed that APL with the execute operator has an Ackermann rating of at 
least five. 


I believe that there is now sufficient evidence to justify the following intuitive 
statement: Any programming language will have an Ackermann rating of 
infinity if within one statement it can treat command strings as data, manipulate 
them in natural ways, and repeatedly execute the resulting command strings. 
James F. Gimpei in the August SIGPLAN newsletter showed that SNOBOL4 
does have an Ackermann rating of infinity. I have independently shown that 
APL with the execute operator has a rating of infinity. And it is clear that 
LISP and some other languages also have an infinity rating, although prog- 
ramming in LISP while avoiding all recursions is an incredible nuisance. Don 
Watson showed that an extension to APL will give it an infinity rating. To 
show that the execute operator alone is sufficient, let us recall that the 
Ackermann function is defined recursively by the formulas: 


OAn=ntl 
j AO=(j-1) Al 
jAn=(j-1) AGA (n-1)) 


We get the following closed forms in APL: 


“ 


1 AWN = 2+8 

2 A W = 3 + 2xN 

ЗАЙ = 3 + 2 ж 3+8# 

4 A N = 3 + #/(3+N)p2 

5 AN = 3+e((3x3+N)o'(*/') , '1! , (3x3«N)p'p2)' 


The APL formula for 5 À N which was given by Brown is written in equivalent 
form. The formula for 6 AN can then be created by taking this formula and 
performing the following operations on it in order: 
1) Drop the 73+ from the beginning and change both occurences of 3+N 
to a new variable, say К. 
2) Break the resulting string immediately after the last occurence of K, and 
let a be one plus the length of the first part of the string and b the length 
of the rest of it. 
3) Replace all quote marks in the strings by a pair of quotes and call the 
10. resulting strings p and q respectively. 
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4) Тһе formula is then 


73+ е (Са хэн др" P €) , '1' , Cb хз рі q ' 


or when the appropriate strings are substituted for a, b, p, and q, it is: 


“Ste ((2Ux34N) p'e ((3xK) p! ! («/! 1) ; 1 111! (Anker) 111, (7X348)p! ) 
ҒАРЫ 


For the reader who is having trouble deciphering the formula, it is suggested 
that he replace the exponential reduction by sum reduction and check to sec 
that the formula will then compute 4 AN. This method originally helped the 
author obtain the formula. 


A formula for 7 AN is then obtained from the formula for 6 AN in the same 
way, and so forth. Robert A. Smith, a colleague of mine, has written an APL 
program which for any j will create the non-recursive closed formula to compute 
j À n. It together with a proof that the resulting formulas are correct is avail- 
able from him or the author. 


correspondence 


On “A Generalization of APL Array-Oriented Concept” 


Iam not convinced that the generalizations proposed by Professor Charmonman 
(APL Quote—Quad, 2, 3, pp. 13—17) are sufficiently general to be included 
in the language. 


The idea of using arrays cyclically is often convenient at the implementation 
level, but makes it difficult to make any formal statement about a program 
a priori. It also appears to allow programmers to produce semantically 
meaningless programs more easily than even before. 


From the examples given in his article, it appears that Charmonman is 
concerned with the problem of combining closely related structures, such 
as vectors with rows or columns of matrices. In this case, there are already 
easy ways to do this in APL, using the generalized transpose. The two 
examples of the cited article can be written as follows: 


Example |: A < 1 2 28Ae.-B 


Example 2: 4+ 122A е.х 1+В 
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In any case, Charmonman’s generalization do not seem to make it easy to 
combine, for example, vectors with columns of matrices. 


With existing operators, we can do this simply. Let М be of rank 2, V 
of rank 1 and @ any scalar dyacid function. Then we have the following: 


І. — Combine a vector with rows of a matrix: 


122&8M».oy 
2128 Vo.0oM 


2. - Combine a vector with the columns of a matrix: 


1218MHM».oV 
1128 VooM 


The other cases mentioned in the article are really ambiguous and should be 
signalled as errors. For example, in adding two vectors of different lengths 
it is not at all obvious whether it is better to recycle the shorter or to pad 
it with zeros or perhaps to truncate the longer. For this reason, it would 
seem unwise to legislate any one of these solutions, as they are user — and 
application — dependent. 


Philip S. Abrams 

CEGOS- Informatique 
Software Department 

107, Bureaux de la Colline 

92 — SAINT CLOUD - France 


calendar of events 


SHARE XXXVI will be held in Los Angeles on March 8—12, 1971. 
The following APL activity has been arranged: 


Monday March 8, Session B (10:30—12 noon) 
Project Meeting — open to those interested in APL. 


Monday March 8, Session C (1:30—3:00 pin) 
Gord Ramer, York University (YKU) will talk on “Another APL" 
which he wrote. 


"Tuesday March 9, Session B (10:30—12 noon) 
Dr. W. Henry Lyme, IBM Technical Center, Palo Alto, has been 
asked to speak on the APL interpreter/system interface and the 
use of the Keyword facility. 


Tuesday March 9, Session C (1:30—3:00 p.m.) 
APL Project Meeting continued. 
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Wednesday afternoon, March 10, Sessions C and D 
APL — A tutorial with Al Rose, Scientific Time Sharing Corp. (STD) 


Thursday morning, March 11, Sessions A and B 
Son of APL — Another Tutorial — a repeat of the Wednesday session 
for those who couldn’t catch it then and/or overflow crowds. 


Note there may be some dislocation in the Wednesday and Thursday sessions 
due to the scheduling of the general session. APL people are urged to see that 
their installation works toward making the APL project a success at SHARE XXXVI. 


Note there may be some dislocation in the Wednesday and Thursday sessions due 
to the scheduling of the general session. APL people are urged to see that their 
installation works toward making the APL project a success at SHARE XXXVI. 
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APL algorithms 


Number 40 DEAL 


Tom McMurchie 
114th St., 


Niceville, Fla. 32578 


The following corrected deal algorithm runs faster on APL/360 and APL/1500, 
but uses a lot of space. 


У ReX DEAL Y;I;J;K 

J+X 

R+OpI< Y 
+uxxJ<X-pR+<R,I[K+((vpK)=KiK)/K+2?JpY] 
Y<oI<(—(vY)eK)/I 

+3 
У 


Number 41 DEAL 


Ricardo M. Forno, 

IBM World Trade Corporation 
Avda. Pte. Rogue S. Pena 933 
Buenos Aires — Argentina 


Claimed to be faster and use less storage than most deal algorithms. 
For 0 origin 


VDEALLOIV 

Z<X DEAL Y;M;U 

э3,2+р0+?М+| 3«[ 3@Y 

2-2,0 
>((Ү50-М|-2%/%0),Х>р2)/ 3 2 


For 1 origin 


VDEALLOIT 

2+Х DEAL Ү,М,0 
-3,Z2«-pU-?M-| 3«[ 3eY 

2+2,0+1 

-((YSU-M| -2*U*U),X2p02)/ 3 2 
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Number 42 DETERMINANT 


Wesley C. Kranitz, 
Florida Atlantic University, 
Boca Raton, Fla. 


This function will check for proper rank and size (at least 2 x 2 matrix) and 
employs pivoting in the evaluation of the determinant. 


vDET(DJV 
YDET KX;K;I;STZ;L;C 
[11] *(((00X)32)^((0X)«2)) /FERR 
[2]  Ke(I-0)81 
(31 572+(0Х)111-1 
[uJ S1:9(SIZ«I-I*1)/82 
[5] L<(([/X)xX[/(T/X)),(([/[(1]) Ха Г /(f/[11 ХЭ) 
[6] *(Lf11-21)/53 
[7] 0«Х11:1 
[8] X[1;]<X[L[1];] 
сә] X[L[1J;J)<-C 
[10] S3:>(F[21l=1)/S5 
{111 C«-X[;13 
(121 X(;1]-XC;5E21] 
[13] ХГ1,11211--С 
1141 Su:Ke-KxXE1;11 
[15] X<(X< 1 1 +X)-((,X[( 
1% ((1(рх)[1]-1)+1)]} 
[16] +51 
[17] 52:-0хҮ«КхХ(1;11 
[18] FPR: 'INVALID ARGUMENT ІМ DET FUNCTION \;Х 
7 


(«Се Х2[11-17)17;11:Х[1;1129.х(, ХС 
) 


Number 43 SINE 


David A. Bonyun, 

Director, Computing Centre, 
Acadia University, 

Wolfville, Nova Scotia. 


Algorithm No. 27 given in Volume 2, Number 3 of Quote—Quad is claimed 

to give the wrong sign for arguments which when reduced modulo 2 1 

lie between m and 2 т. The following version is claimed to correct this. 
V ReSIN X 


(11  Re-(Ci12xPIR(2xPI)|X)x(CPIÓ|X)s.*R)-.9!Re-1*2x(110)-11 
7 


Number 44 PRIME FACTORS 


Dr. R. Holmes, 

Math Department, 
University of Alberta, 
Edmonton, Alberta 


FACTA is claimed to be faster than the function FACTOR published in Volume 
1, Number 2 in July, 1969, for finding prime factors. 


180/ APL QUOTE-QUAD 


FACT is faster still for smaller numbers (ie. approx < 400,000). 


VFACTALD]V 
V Р+РАСТА П{4;5;1 

[1] F+0p0 

[2] PP, (d+022[4)p2 

[3] +>((1=N+*N+1+J),J)/ 0 2 

[sJ P+*P,(J<0=3[|N)p3 

[51 T((isNeNt1tJx2),7)/ O 4 

[6] Е«Р,(4405-511)05 

[7] -((1=N+*N:1+Jxu),J)/ 0 6 

[8] F+F,(J+0=7|2)07 

[9] -+((1=M<H+1+Jx6),J)/ 0 8 

[10] I< 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 
101 103 107 109 113 121 127 131 137 139 143 

1111 Т+1, 159 151 157 163 167 159 173 179 181 187 191 193 197 199 209 
211 


[12] 5+(|ї)+0.5 

(131 +(I[1]>S)/17 

[18] (49-0-(111)10)/16 

1151 >12,(Р«Р,1|410,8%0%1721 
[16] >13,1+1+210 

(171 >(1:7)/0 

[18] ғәр, 


VFACTID]V 

V F+FACT N;J;S;I 
[1] F+0p0 
[23 Ё«Р,(/«0-21”)о02 
Сз] -((1=N<*N+i+J),J)/ 0 2 
[u] Р«Р,(У<0-3|7)03 
151 +>((1=N<N+1+Jx2),J)/ 0% 
(61 PeF, (4/+0=5|И)р5 
[7] >((1-МУе<0%1%/х4),7)/ 06 
(81 Ie 7 11 13 17 19 23 29 31 
(91 S#(|N)*0,5 
[10] >(1111>5)/14 
(111 >(9-4-(І|М)10)/13 
[12] »9,(Р-БЕ,ЇГ/1),8«М41(41 
(131 »10,1-1430 
(141 +(1=7)/0 
Р+Р,П 
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APL WORKSHOP 3 


An APL Workshop will be held at the University of California, 
Berkeley, on April 20-21 with the University of California, 
Berkeley and Livermore Radiation Laboratory acting as 
co-hosts. 


Due to space considerations attendance at this working ccn- 
ference will be limited. Anyone interested in attending 
should contact: Harvey Bingham, Burroughs Corporation, 
Advanced Development Organization, Paoli, Pennsylvania. 


The cost of the workshop is undetermined at this time but it 
is expected to be minimal. The two days will be occupied 
with four sessions dealing with the areas of implementations, 
extensions, educational uses, and terminals and 1/0. 


Anyone interested in presenting a paper should send an 
abstract to: Conrad Wogrin, Research Computer Center, Univer- 
sity of Massachusetts, Amherst, Massachusetts; he will refer 
it to the proper session chairman for review. 


Space for workshop participants will be reserved at the 
Durant Hotel in Berkeley and all meetings will be held at 
Evans Hall at the University of California. 
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editorial 


This is the final issue of this volume of Quote-Quad. At the projected APL User's 
Conference to be held at Stanford in April decisions will have to be made about the 
future of Quote-Quad. 


The following questions ought to be considered: 

1. Should Quote-Quad be absorbed into a formal refereed publication? 

2. Should Quote-Quad be produced more or less frequently? 

3. Should material be selected or does the present policy of publishing all contributions 
suffice? 

4. How should Quote-Quad be financed? 


It is to be hoped that some definite plans for its future will come out of this Conference. 


The Founder’s Committee should also be putting recommendations before the Conference 
on the formation of a formal APL User’s Group. 


Having stated in the last issue that few people were prepared to discuss the future of the 
language, we were very pleased to receive two contributions in that category from Larry 
Breed. His reply to Dr. Anger’s letter does illustrate one point. The original implemen- 
tors may have had to make some decisions which now limit the expansion of the system 
— for example, the difference between their treatment of stored code lines and ones 
entered at a terminal prevent the inclusion of system commands in defined functions — 
but many of the possibilities that people can see in the future of APL would not be there 
were it not for the excellent design of the original system. 
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2/0 


Ricardo M. Forno at the IBM Test Centre, Avda. Pte. Roque Saenz Pena 933 Casilla 
de Correo 1600, Buenos Aires, Argentina has a Mixed Linear Programming package 
using Н. Greenberg’s algorithm as reported in Document NP 555GD 80°1A, 1968 of 
the United States Naval Postgraduate School. The program is reasonably fast. 
occuping 12K bytes and able to handle problems of more than 15 rows and 29 
columns not counting slacks. Anyone interested should write to Mr. Forno. 


The Computer Company, Seventh and Frankiin Building, Richmond, Virginia 23219 
have information on their analog plotter and CRT display available with system 
software through the Action /APL timesharing network across the USA. The software 
includes not only fundamental plotter controls, but routines for curve fitting, plotting 
of land tracts, semi-log stock price charts and more sophisticated systems. 


APL General Inc., 433 Latona Ave., Trenton, N.J. 08618 claim to have a large 
humber of useful library workspaces as well as their file and formatting system 
described in this issue. 


Anne Kellerman, Computer Centre, State University of New York at Binghampton 
М. Y., 13901, U.S.A. would be interested to hear from anyone who has worked on 
the symbolic manipulation of polynomials of trigonometric functions. 


The Scientific Time Sharing Corporation have developed a report formatting package 
to go with their APL Plus file system. Anyone interested should contact Daniel Dyer 
at STSC, 2101 S. Street, N.W., Washington, D.C., 20008, U.S.A. 


Computerworld of February 24th. 1971 reports оп an 1/0 error at Brown University 
which made APL workspaces inaccessible to some users recently due to production or 
а garbled directory. The article leaves the reader to guess which APL system is at fault. 


Datamation of March Ist. (Page 59) reports on ап APL .nteractive implementation of 
PERT produced by IBM DP Division at White Plains, N. Y. 
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articles 


More About Multi-Adic Functions 
А. J. Rose 
Scientific Time Sharing Corporation 


Algorithm 37 (vol. 2, No. 4) by Raymond J. D. Reeves showed a method of passing an 
arbitrary number of arguments to a function. Until such time that APL functions can 
truly accommodate more than two arguments, such schemes will be useful, and in that 
spirit I spent some time investigating alternate solutions to the problem. 


First, I reorganized Reeves’ stack so that new parameters go on the front of it rather than 
the back. The program ‘LINK’ then becomes: 


VZ+A LINK B 
[1] — Z«(1*004), (04), (,4) „ВУ 


Note that 1+ррА isstored instead of ррА . This reduces (slightly) the amount of 
computing in ‘POP’, shown below 


VZ+PoP 
[1] 2+(1+(1+5ТАСК)+5ТАСК)р(1+58ТАСК)+5ТАСК 
[2]  5ТАСК+((145ТАСК)+х/р2) +5ТАСКУ 


The only functional differences in the two approaches is that in Reeves’, the application 
of ‘POP’ to an empty stack results in the vector , 0 while mine results in a length error, 
due to (10)рх0-. 


Ол the STSC system (IBM 360 model 50 running DOS and with our improved syntax 
analyser) and using Reeves’ ‘A’, ‘X’, ‘К’, and ‘CONGRAD’, this program 


уво 
[1] Im 
[2]  SINK«CONGRAD A LINK X LINK К LINK 10 
[3]  »2x150€II-II«1V 


took 18.5 seconds of CPU time using my routines and 19.5 using Reeves’. 


Neither solution above can handle character arguments (although a separate global variable 
containing the dimension information would solve this), and both solutions are impractical 
for dealing with the large amount of data used in many real application. 


In what follows, I have employed an APL plus file as the stack. A file component on our 
system can hold any APL quantity — character or numeric, and of any size — thus no 
restructuring is required, and of course the workspace is not clogged with copies of the 
data. The functions starting with the letter 'F' are our file functions, and are described 
in the APL Plus File Subsystem Manual. 


To use the file svstem for this type of application, one or more (if multiple stacks are to 
be employed) files are created 


'STACK' FCREATE 1 


3. 


: 
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The appending of a new parameter to the file is done by this program: 


VR-A LINK N 
[1] А FAPPEND N 
[2] Ру 


*N' is the file number, and *A' is the value that will be placed as the last component of the 
file. Here is the corresponding 'POP' program: 


VR-POP М _ 
[1] RePREAD N, РЫМ N 
[2]  FDROP И, 19 


In this program, the value in the highest numbered component of file “М is returned, and 
that component is then dropped from the file. The program *CONGRAD' is rewritten 
(and incidentally shortened). 
VX*CONGRAD N3A;L3;P3;AP;R 
[1] A*POP N 
[2] ХеРОР N 
[3] ZIe+/(P<(8&A)+.xR<(POP N)-A+.xX)*2 
[43 L1:LeL,+/((QA)+.xR<R-(( 1+L)t+/AP*2)xAP<A+.xP)*2 
[5]  Xex«Px(1* 2+L)++/AP*2 
[6] P<((@A)+.xR)+P++/ 24L 
[7] +((pX)2pL)/L1¥ 


The file components are used (and dropped) on a last in, first out basis. The right argument 
of the rightmost occurence of ‘LINK’ is the file number. 


CONGRAD A LINK X LINK K LINK 1 
1 2 з 


Using Reeves’ data, a modification of “СО” above took 18.7 seconds of CPU timc. 


In summary, І have borrowed Mr. Reeves’ approach to dealing with more than two arguments, 
and extended it to work on character as well as numeric arguments, and have moved back the 
*WS FULL' message through the use of APL plus files. It is interesting to note how the file 
subsystem funcitons can advantageously replace other APL functions that wouldn't usually 
be associated with the notion of input and output. 
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Generalizing APL Scalar Extension 
Larry Breed., STSC. 


Introduction 

We present a generalization of the extension of scalar dyadic functions with one- 
element operands. The generalization retains the spirit of APL scalar extension, 
brings into harmony the present rules for extension of one-element arrays, and 
provides useful new APL constructions. Some contrasts with Dr. S. Charmonman’s 
Proposed generalization, and some implementation considerations, are also discussed. 


The current rules of scalar extension were designed to allow combination of scalar 
quantities with arrays. Extension of one-element vectors and higher dimensional 
arrays is allowed also, but the rules surrounding extension of, say, 2 one-element 
matrix to an n-element vector are not simple. (The rank of the result depends on 
the value of n!) Here, in three steps, is the proposed generalization of 

В + А Ёп В 


Informa! Definition 

1. If A and B have differing ranks, increase the rank of the lower-rank argument 
by adding leading 1’s to its dimension vector. For instance, if pA +> 2 3 4 
and pB ++ 4 ,reshape B to 1 1 црв 

2. If 4 and B have the same rank, extend any dimension of length 1 in one 
argument, to match the corresponding dimension in the other argument. 
Signal a length error unless А/(04)-08 . For instance, if pA ++ 3 4 
and oB <+ 3 1 ‚then p8 becomes 3 в. I oA <+ 2 3 1 and 
eB +> 1 1 у (asin the example in Step I), oA becomes 2 3 4 and pP 
also becomes 2 3 u. If o4 ++ 2 3 5 and РВ <+ 1 1 u , the arguments 
are not conformable and a length error occurs. 
Excute the dyadic function on the extended arguments. 

Formal Definition 


1. М < ((О[(ррВ)-ррА)р1),рА 
№ < ((О[(ррА)-ррВ)р1),рВ 


2. U + (М, )[(їрМ)+(М=1)хрМ]1 
V + (#,М)[ (аїр)+(#=1)хр!] 
length error if v/yzy 


3. X < CYM=1QUL IMEI IoC AP1=04 QA 
Y < (4/=1)ВУГ9М=1 ]р(4891=р8)58 
Rex 


fn Y 


The purpose of the expressions in Step 3 is to reshape each dimension independently 
of other dimensions, which the simple expressions X + UpA and Y < VpB 
would not do. Step 3 may be presented as a program т 0 origin with a single loop, 
as follows: 
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I < x/U 
В + 1р0 

Li: э(0>1+1-1)/12 
X + (,A)[((Mz1)/M)1(M=1)/UTI] 
Y < (,B)(((#z1)/8):(Nz1)/VTIl 
ЕСІ) + X fn Y 
+11 

L2: В + UpR 


Examples and Discussion: 
3 x M isequivalent to ((pM)p3) x M 
A L 1 isequivalent to A L (p4)p1 

If pV «+ 5, V + ру is equivalent to У + 5р5 

These are the same as the results given by the current rules. 

Now suppose pQ ++ 10 10, pW +> 10 ,andpU ++ 15. 

Then either Q + W 

or Q 1 10pW 

adds W to each row of Q ,and Q + 10 1pW 


adds W to each column of Q 


Finally,(10 108) fn 1 15p Vis the outer product of W and U by the function 
fn. It was unexpected, and pleasing, to find that the general outer product falls out 
naturally from the new rules of extension. 


The extension of one-element arrays no longer looks like an afterthought of scalar 
extension. In particular, an anomaly of the current rules is eliminated: 
ИРА +> 1 1 and poB ++ 1, then А fn В 


is equivalent to ((1,02)p4) fn (1,PB)pB 
rather than to ((((1=9B)/1),9B)pA) fn (((1:р8)/1),о8)рВ 


as is the case now. That is, the rank of the result is always that of the higher-rank 
argument. 


An important point: scalar functions continue to be defined as operating fundament- 
ally on scalars — that is, the expected properties of the functions, such as associativity 
and commutativity, continue to apply. This is not true of Dr. Charmonman’s proposed 
generalization. For instance, by his definition 


(A*B)4C 
is not equal to A+(B+C) 
where A+12 
B+123 
C+123% 
Furthermore, E+ Б 
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is not equal to 


^u 
+ 
еч 


where 


"t 
+4 
ne 
un 
оо 
ком 
юю 


Other familiar properties also fai] to hold. 


Implementation 

This generalization adds to the complexity of executing dyadic scalar functions. 
Assuming that arrays are stored in row-major order, the current rules of extension 
permit a scalar function to be applied element-by-element within a single loop, 
treating all multiple-element operands as vectors. With the proposed generalization, 
efficient execution of a scalar function may require a program with nexting loops. 
The depth of nesting is approximately the same as the number of argument dim- 
ensions being extended. Such a variable depth of nesting can be a nuisance to the 
system designer, but in fact is about the same situation faced in executing dyadic 
transpose, or an indexing operation with array subscripts. It is quite possible that 
execution by a compiled program or a hardware APL realization might not suffer 
at all. In any case, the only forms of extension that cause difficulty are those 

that currently cannot be written, and hence require some expensive circumlocution. 


References 


Charmonman, S., “A Generalization of APL Array-Oriented Concept”, APL Quote- 
Quad, September, 1970. 


APL-FIOS; APL-FIDOS. 
Multilevel Total File Access And Special Features 
Karl Korn and John Rose 


This powerful package harnesses the major technological advancements which have 
been discovered since IBM's issuance of the APL Terminal System for time sharing. 
The result is totally feasible use of APL Language for “‘straight Data Processing”, 
іе., for the type of computer programs which are run many times over, and which 
must be efficient in all respects, since they are “in producation”. The way is now 
paved for the so-called commercial user to enjoy the benefits of ІВМ'5 new, and 
probably final, general purpose computer language, namely APL. The package was 


developed by John Rose. 


1. Write 

A simplified APL function, WRITE, is described. ‘OUTVAR’ WRITE VARIABLE 

is equivalent to OUTVAR e- VARIABLE except that OUTVAR is written outside of 
the user’s workspace. 


2. Read 
Similarly, VARIABLE = READ 'OUTVAR' brings the value back into the workspace. 


3. Comment on Simple Read-Write Workspace Extension 

Items 1 and 2 above constitute the simplest extension of the APL workspace from 
the user-standpoint. He has not had to define a file, "open" or "close" anything, 
and need not be concerned about any coinplex input-output problems. He only 
knows that the variable is too big for his workspace, and he needs it moved out. | 
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One restriction is that the name of the external variable cannot exceed 8 characters. 
What he writes or reads can by anything not exceeding 7294 bytes. 


4. General Contents of the Package 
1) 1/0 capability to and from all devices in all manners compatible with all 
of the manufacturer’s data formats at precisely the same speeds as in Batch 
Processing but without the user “program” taking up core space or a separate 
partition. (More about File 1/0 later). 
2) А new keyboard function which permits any type of data to be catenated 
with any other type of data, e.g., character with Boolean. The data itself 
temains unchanged. (How this operator simplifies files ~ use and internal APL 
activity later). 
3) А new keyboard function, $, the EDIT operator. 
4) А new keyboard function, the DATA TRANSLATE operator, which permits 
data to translated form any code to any other code at CPU (not APL) speeds. 
(More later on how EBCDIC, ASCII and Z code problems are handled.) 
5) A new BAL operator, which enables one to execute any program (having 
no 1/0 in it) written in any language and copied into the workspace. 
6) A function which prevents a user from looking at information contained 
іп a variable. 


5. Standard 1/0 Programs. 

Most APL users will want to use the interactive Standard Program Generator which 
creates a STANDARD 1/0 PROGRAM specially adapted to the necds of each part- 
icular 1/0 job. The Stamdard Program Generator is a question-answer APL program, 
The reason for this is that 1/0 is handled by a 13 element Control Vector which 
sometimes requires manipulation, several tests must be made to determine whether 

a read was successful, etc. (Normally the APL user will not wish to become involved 
to this level of detail.) 


6. Three Levels of File-Hotd (Sequestering) 

File-hold capabilities are far more sophisticated than a simple file-hold which prevents 
users on other terminals from updating; in addition to the capability of holding an 
entire file, the system can place holds on individual tracks or place a hold on all files 
of an Extent to permit the installation to move it around or take it off the computer 
entirely. This latter capability is important to the installation and to major users. 
For example, if a customer wants his own disk pack, but wants it up only on 
Tuesday and Thursday mornings, the installation merely puts it up and takes it 
down as they would any other pack used in Batch Processing. If the user makes 
a mistake and tries to get at it when it is not up, he gets a message on the console 
telling him so. 


7. How File Access is Obtained from Within APL Language 
The “I-beam” keyboard operator is used in a single basic statement: Х--АТВ 
This is usually expressed as: XAI" for Reading. 

х= АВ for Writing. 
X isthe name for the Data read in, and B is the name for the Data read out 
(written). Execution of the first WRITE creates the file, just as Хе- Y creates Ж; 
(However, most users will use the STANDARD 1/0 PROGRAMS.) ‘A’ is the 1/0 
Control Vector, and is described below. 


8. Definition of the 1/0 Control Vector 
8. The 1/0 Control Vector, named A in item 7 above, is a 13 element numeric vector 
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in the users APL program. Each of the 13 positions in this vector has a specific 
furpose. 1/0 is controlled by the numeric value in each of the 13 positions. In 
normal use, A needs to be defined only once. 


9. Catenation & Changing Data Type Indicator from APL Terminal 
The A keyboard operator, when used dyadically, is given a new function which 
permits the Data Type indicator (internal to APL) to be altered. The data is not 
changed. This is essential for files activities to be efficiently handleable from the 
APL terminal, but it has many other extremely practical uses in regular APL: 
Xe4AVCTR 
causes X to have the same data in it as does VCTR , but to APL, X is an 
alphabetic vector. 3A produces floating point, 2 A produces numeric and 1A 
produces Boolean. In APL, catenation of data requires that it all be of the same 
type. Use of this operator permits any kind of data to be catenated with any 
other kind of data. (See App. 2) 


Data Type indicator alteration becomes especially valuable when searching a table 
or directory in APL. Suppose the search argument is an 8-character name. By 
keeping the table in “Quasi-floating point" (that is, the value of ‘JONES, J J’ has 
not been altered, but its Data Type indicator specifies that it is a floating-point 
number) the character vector can be manipulated as an element. Consider sorting 
for example. In this situation, 8 executions of the sort operator and noticeable 
Programming would be required. By making the character vector an element, the 
table can be sorted by executing a single elementary statement. 


11. Externally-Stored Arrays; Extension of the Workspace 

There are two additional Data Type indicator alterations specifyable with the A 
operator, namely 0 ап471. These convert an array to a vector (and vice-versa) 
but retain the identity as an array. Through the use of this device, the array is 
converted into a vector and may be written out. When read in, it is converted 

back to the original array for the user if he wishes, or is convertible later if he 
wishes. (The mechanism by which this is done is that the P of the array is recorded 
in the vector.) This is a key feature in extension of the workspace. 


12. APL Operator for Code Translation 

The system contains a translate operator which permits CPU-speed translation 

from any code to any other code. This, of course, essential for working with 

data files, since Batch access to the file normally utilizes EBCDIC or ASCII, and 
APL normally utilizes Z code. It is also convenient for persons with DURA or 
other paper tape equipment. Such data need not be processed by a special program 
but is merely read onto, say, the disk and the translated whenever it is read into 
the APL workspace. It may, alternatively, be translated by a run-through of a two- 
statement APL program. This operator is also convenient for verifying Numeric, 
Alphabetic, or Special Character fields, etc. 


13. BAL Operator (Basic Assembler Language); Early-User Example 

The BAL operator enables execution of any program (excluding 1/0) written in 
any language and copied into the workspace. Example: One installation using 
the system has a customer who has an ideal APL application (basically Inventory/ 
Billing), but one phase of the program requires so much iterative execution of a 
certain type that it would totally require the entire CPU of the Model 40. The 
solution selected was to write that part of the program in assembler, assemble it, 
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read it into the workspace, and give it a name like any other APL vector. It is 
executed from an APL program. (Permit us to call the System Engineer’s attention 
to the implications of this operator.) 


14. Data Security for a Variable-Name 

The system contains a special function of interest only to special users or to the 
installation itself. The function can build a symbol and put it in the workspace 
as the name of a vector, but it cannot be typed or listed on any terminal. (At 
present there is no other way to prevent a user from examining a variable in his 
workspace.) 


15. Additional 1/0 Type Codes 

Although the standard 1/9 Type Codes can perform any and all 1/0 functions, the 
system contains special WRITE NEXT/READ NEXT/REWRITE NEXT codes. 
Rather than providing incrementation of track and record number in the APL 
program, these codes provide that this is done in the interpreter. This permits 

the APL program to dispense with modification of the control vector, and dispense 
with testing the return code. (Errors in 1/0 with this type produce ‘syntax error” 
type messages on the console.) As an alternative to the similar situation where 

the user writes an APL program to access an Indexed Sequential file, the system 
has 3 automatically incrementing Indexed Sequential 1/0 types. 


One of the Types of 1/0 is Augmentable. In FIDOS, by the use of the Augmented 
code, one can go to any device or any device IBM may add in the future, since the 
IBM 1/0 code (the CCW OP code) is the augmentation. In DOS it is practical to 
assign and unassign devices to APL, such as printer, card punch, etc. In OS, the 
solution for normal situations is to pool the data in an ‘Output Writer’ disk file 
from APL, then go to Tape, Printer or Punch with a Batch program. In addition 
to the foregoing, the system will have (note that this is not yet implemented) the 
ability to initiate jobs in other partitions or regions. With this capability, when the 
installation has one or more users who wish to go to external devices, they simply 
load one program (the same in all cases) and the user can then go to the devices at 
will from APL. When he is finished the devices are freed. An additional alternative 
is a printer, say, dedicated to APL; or a tape unit, etc. 


16. Allocation of Disk Space 

Disk space is allocated to a user when he is given his sign-on number. A user with 

more than one number may pool all of his space into one number if he wishes, but 
in this case the file must be created from that number. (Note the similarity to the 
method of allocation of workspaces.) 


As tracks are used, an accounting is kept of how much he has in use and the system 
gets more tracks for him as they are required (except for random files when he must 
specify the total initially, due to the logic of that access method.) If he needs more 
tracks than he has reserved, he gets a message that the tracks are not allocated. (If 
the next sequential track is not available, a garbage collection will be provided, 
depending however, upon specific installation circumstances.) 


When a file is created, an entry is made in a directory within the system. This is 
available to the installation via the operator’s terminal. The user may obtain the 
same information about his disk space as he can about his workspace, ie., number 
of tracks unused, number used, names of files “in” this workspace, etc. 


17. Simultaneous Update: From Batch & Multiple Terminals 
One FIDOS application, presently in continuous operation, often runs batch programs 
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against a file at the very instant that three girls are updating from APL terminals. No 
compatibility problems have ever been encountered. It was determined, in this particular 
activity that four terminals and three typists would be required to enter the accounting 
information. At the time, the data was being run in a Batch system. The installation 
took the customer’s tapes, and using a standard utility program, read the tapes onto the 
disk, thereby creating the customer master files. During the day, the girls access the 

files and update them from APL terminals. They also enter a sequential list of activity 
(transactions) which creates a new file. They use only three small 1/0 programs of about 
8 lines each, in the workspace. 


18. Fast Formatting; The Edit Operator, $ 

The edit operator, $ , was developed to provide a high degree of control over the 
formatting of output. Use of the edit operator greatly reduces the CPU time required 
for the same function written as an APL program. The form of statement for editing 
Data, including handling of such problems as providing decimal point, commas, 
dollar or cents signs, rounding, leading zeros, etc., is: RESULT«-MASK $ DATA, 


correspondence 


Editor, Quote-Quad: 
Professor Anger raised some interesting issues in his letter to the September Quote-Quad. 
I have tried in this letter to answer his questions as to why APL 360 is the way it is. 1 
will refer to the same section headings that appeared in Professor Anger's letter. 
Qn Operator Classes 
Anger proposed a niladic use of о, ж ‚and ? aswell as the present monadic and 
dyadic uses. Unfortunately, APL syntax becomes ambiguous if a symbol with meaning 
as a monadic or dyadic function is also permitted the syntax of a niladic function. One 
of Anger’s examples demonstrates this — in the expression 

ox R * 2 
his proposed niladic circle would have to be parenthesized superflously, as (о), to avoid 
ambiguity. If the о may be monadic or niladic, you can't tell whether the x is monadic 
or dyadic. This seems a high price to pay to be able to write o ог ж instead of 01 or 
*1 . Similarly, the quad symbol (which, as Anger observed, is neither variable nor function) 
could not also be given monadic or dyadic significance without introducing ambiguity. 


Since APL does let the programmer define functions with the same syntax as the 
primitives, I think the best strategy with useful new funcitons is to let the user 
define them as he pleases. This is particularly true where opinions on the 
appropriate definition may vary. For instance, if a random-fraction generator is 
needed, my preference would be to give it a single argument denoting the dimensions 
of the result, since in an array-oriented language a function limited to generating 

a single fraction doesn't seem particularly useful. 


Incidentally, the only reason the right arrow can be both monadic and niladic is 
that it always appears at the beginning of a statement. 


With regard to the dyadic circular function, the proposed change (denoting the part- 
icular circular function being selected by a subscript rather than by a left argument) 

is certainly feasible. However, APL uses the function-subscript artifact only to denote 
a coordinate for a function that operates along just one coordinate of a multi-dimen- 
sional array. The change would also involve giving up the present monadic use of о 
Since o x would presumably be equivalent to o(7] X for I = ррХ 
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The objection that the left argument of selects different funcitons isn't unique to 
the circular funcitons. What about thesc expressions? 


X*0 constant 1 function 
Х з“ 1 identity funciton 

X * 0.5 square root function 
Х а 2 square function 

Х ж “1 inverse function 


It can be argued that the right operand is selecting one of several different primitives 
— and, if fact, that's just what happens. Each of the above expressions is executed 
by a different machine-language algorithm. 


On Mixed Output. 
Anger raised two points here: one is that APL/1130 does not handle 


А+3;' FOO ';15 


and 0+3;' FOO ';15 


in a consistent fashion. This is, without question, a bug. A similar bug existed in 
APL/360, but was corrected about a year and a half ago. 


The other point is that some means is needed for easy conversion of numbers to 
characters. Although APL-generated output is adequate for conversational work, 

I think that more is needed than what Anger asked for — i.e., the character-matrix 
image of what the system would have printed. STSC has designed and implemented 
a primitive funciton that accepts a list of ‘mixed output’ quantities, and a Fortran- 
style format string, and produces a character matrix as Anger suggests. I’m certainly 
in agreement on the desirability of such a facility in APL. 


On Tracing Immediate Execution 

Anger’s proposal that all lines be numbered, rather than just those in a funciton 
definition, raises a number of questions. If all lines are numbered, how can the user 
tell the difference between function definition and immediate execution? If I am 

on a line 5 of immediate execution, does a branch to line 4 re-execute my previous 
input line? If so, how do I indicate resumption of execution of a suspended function? 


There is also a serious conflict with the present meaning of line numbers: that the 
statement entered on that line is not to be executed, but is to be collected for latter 
execution. I think this indication of the distinction between definition mode and 
execution mode is important, and that the effect Anger is looking for could be gotten 
with one new system command — say,) TRACE ON and) TRACE OFF — that would 
control the materialization of al! default output. 


Perhaps the whole burden of tracing and stopping should be placed on systems 
commands, to eliminate those curious non-variables beginning with TA and SA . 


On Trace-Output Messages. 

Trace output was designed to minimize output time on a slow printer, while giving the 
information that cannot be gained directly from looking at the program listing. The 
possibility of ambiguity in trace output is, I think, pretty smal! — as Anger says, a look 
at the guilty statement will almost always clear up any questions on empty vectors. 
After all, the trace output is meaningless unless you are looking at the program! 


4 


13. 
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The proposed change would be worthwhile in a batch environment, where reruns 

are expensive. (Note also that most batch printing speed is independent of the 
length of the output lines.) In an interactive environment it’s easy to stop a program 
at any point, look at all or a part of a variable, or at its structure — in other words, 
to get more relevant information than even the most clairvoyant trace output 

could give. 


On Keyboard Design 

Since I was involved in the design of the APL 1130 keyboard scheme (referred to by 
some as the “crypto-shift keyboard”), I’m not in a very good position to preach on 
good keyboard design. Keep in mind, though, that APL keyboards have to fit existing 
equipment designed for entirely different purposes, and hence any keyboard (like any 
system) represents a series of compromises. 


One objection to an automatic backspace after the first of two overstruck characters 
is that if an overstrike is not intended, the user must remember to type an extra 
blank to comensate for the backspace, 


Miscellanea 

Many people have felt the need for a conditional execution facility; one possibility 
is Anger’s dyadic branch, and another is Jim Ryan’s extensions (presented at the 
Goddard APL meeting). I believe that Ryan’s proposed extensions would, as well, 
handle something quite similar to Anger’s incrementation constructs. 


Lawrence M. Breed 
Scientific Time Sharing Corp. 
836 Seale Ave. 

Palto Alto, Calif. 94303 
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APL Routines For Evaluating Functions In Mathematical Physics — 


E. A. Buchheit and R. B. Roden — Research Report CSRR 2029 — November 1970 — 
Department of Applied Analysis and Computer Science — Faculty of Mathematics — 
University of Waterloo, Ontario, Canada 


APL algorithms 


Number 45 Arctan for 1130 


D. A. Bonyun 

Dept. of Computer Science 
Acadia University 
Wolfville 

Nova Scotia, Canada 


Ifx=tany (ie. y = arctan x) 

and 0 < [у] < 7/14 y in radians 

then we may use y = x - .33333 x3 + 19964 Х5. 13178 Хх 
if [у> 7/14 


ме may form y = a+ 18| $ 7/14 n=1,2,3 


Now tan g = tan yes) tan y - tan 27 


1 + tan y tan 57 


" 
x 
' 
e 
m 
5 


In dealing with absolute values of x the effect of this is to divide the interval for x, 
(0, е) into only 4 sub-intervals 

(0, .2282), (.2282, .7975), (.7975, 2.077), (2,077, = ) corresponding to the y 
sub-intervals (0, 7/14), (1/14, 32/14) (30/14, 51/14)(51/14, 1/2) 


The mid points of the intervals other than the first аге 7/7, 21/7, 31/7 ала 
the tangents of these values are .48157, 1.254, 4.381 
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To summarize: 


if |х) < .2282 y is as given in I; 

if .2282 s|x| < .7975 y is as given in І + .4488; (using tan 2 instead of x) 
if .7975 < кі < 2.077 y is as given in І + .8976; (using tan 3 instead of x) 
if 2.077 < [xe y is as given in I + 1.3464; (using tang instead of x) 


Я Д«АТАЛ X;3;S;T 
(12 ReSuxSe(Te(|X)o.2R«-0 0.2282 0.7975 2,077)Х((|1Х)ө9.-5):14(|1Х)ө,х840 
0.48157 1.254 4,381 


[22 AcC(xX)x[/7x(((o0X),8)00 0.4488 0.8976 1,386%)%((|5)<0,23)х5х1-7х0. 
3333348х0,1995ч-8х0.13178 


Number 46 Symbolic Manipulation of Polynomials 


Anne Kellerman 

Computer Centre 

State University of New York at Binghampton 
New York 13901 

U. S. A. 


An APL function, M, has been written for symbolically multiplying polynomials. 
Polynomials are represented by a 2 row matrix, the first row representing the 
exponents and the second row the coefficients. 


For example: 


Polynomial X * 1 is represented by a matrix 


4+22p 120171 


4 
2 0 
171 


Polynomial X + І is represented by a matrix 


B+ 2 2 0 10 1 1 


B 
10 
11 


AM B will produce the product of (X- 1) x (X + 1). 
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PRINT 2 may be called to express any of the matrices representing polynomials 
back into standard polynomial form. 


УМГ 39 
V CHA МВТ; Р;М;Т 
(12 №М+р1+7Р+,А[1; }°.+3Г1;] 
(21 РеРГІ1 


(31 С+(2,рТ)оТ,,((Т7+(Р#(71+1ФР),РГоР]+1)/Р)°.ЕР)+.х(/ 1)рг,АГ2;]•. 
х8Г2%10Ғ72 


182 0-(2,(1/1,(00)3121))40«(012,1к0)/С 


PRINT2 A 


ЧХж1 + 3Х+*2 


8-2 201 3 ü 2 


PRINT2 Я 
UX*1 + 2X*3 


AMB 
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PRINT2 А М B 


6Хж5 + 8X*u + 12Х%3 + 16X*2 


PRINT2AMAMAMAMAMA 


720X*12 + 5832X*11 + 195850Y*10 + 34560Х49 + 34560Х48 + 18532X*7 + 
8096Х%6 


8-2 20.33 .25 .25 .25 
PRINT2 B M B 

+6 Y*.66 + .13X*.58 + ‚Б Xx.5 
PRINT2 В 


.25Үх,33 + .25Х»,25 


VPRINT2[[]]V 
V OUT-PRINT2 E;A;I;X;Y 
(12 OUT+1I+0xpX+|E+ &E+8E 


[2] 5ТАРТ:-(ЕГІ«1%11>0)/Р05 


£3] OUT«OUT ,'^" 
141 POS:9(0-XLI]e1lXLI])/NODEC 


[5] Yc(C1. ),A*Y,004e14'0! 27 15Y«' 0123456789 C1«((1*L109X1172)010) 
ТХГт1«1 (Х(11х100):0.52),(1 2 0 0 0 =2|I)/'X* + ' 


(62 (041 15771) /МОТ”Т 

[7] 00Т«00Т,(1!0123456789"(14((141109| |ЕГ7])р10)т[ 1ЕГ711),Ү 
fa] >((І<оЕ),(І>рЕ))/5ТАРТ,ғМр 

[9] NOINT: OUT+OUT,Y 

1101 »+((I<oF),(I2oR))/START,END 


[11] "ODEC:OUT-OUT,('0123556789'[1«((141 100] EL 7])010) TI ET 73]), 17, 
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(11000-241)/7Х4 + " 
1121 »+((I<pE),(IspE))/START,END 
[131 ЕМр:007+ 240UT 


ç 


Number 47 BOX and POST 


Richard H. Oates 

IBM World Trade Corporation 
Information Systems Dept., 141 
205 East 42 Street 

New York 10016 


BOX extracts ‘segments’ of a dense text vector, and forms them into a matrix for 


printing. If can be used with DFT, which is described in Part 4 of the User’s Manual. 


`. ө ТЕХТ E - 
RED” YELLOWRED" YELLOW" BLUP 


((13)20X ТЕХТ),1 DFT 3 2016 
RED 1.0 2.0 
YELLOWRED 3.0 4.0 
YELLOW 5.0 6.0 
(3 ч з BOX TEXT),1 ОРТ 3 2putit 
YELLOW 5.0 6.0 
BLUE 7.0 8.0 
YELLOW 5.0 6.0 


ҮВОХІП17 
V 261 ВОХ CiU; 
Сај СсГУ<(С-1%09/1р616-! 
[2] 2«СГ(8(У,р7)р/Г1%11014111».ө1 /<Г/(13/)-7142/1 
v 


POST changes (long) text vectors: 

New text preceded by v is inserted after Old text., 
Other New text replaces Old text., 

Empty key Return on New deletes Old text. 


Old text is keyed on the first line below — ?, and New text on the second. Empty key 
Return on Old ends the function. IN is in Appendix B of the User’s Manual. 


- TEXT .. - - 
"RED" YELLOWRED YELLOW BLUE 


TEXT+POST TEXT 
? 
YELLOW 
УСВЕБИ 
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? 


YELLOWRED 
ORANGE 
? 


RED 
? 


- TEXT e 5 " 
ORANGE YELLOW” GREEW BLUE 


VPOSTLOV 

C+POST Z;J;0;N 

[1] Cez 

L2] 772! 

[3]  +0x10=p0+,M 

[4] +(0 1 =og<(C[Jg]=1+C)/J< 1+(0,140) ІМ C)/ 6 7 

[5] +2,20+' MORE THAN ONE OLD' 

[6] э2,рОе' NO SUCH OLD' 

[7] э2,00«((/4(!у!:14 )х1400)340),, CC v! 22480) 48D) , GI (00) £070 D) 4C 


EI 


Number 48 Merging 


James Н. Вим] and Clark Wiedmann 
APL Group 

Research Computing Centre 
University of Massachusetts 
Amherst, Mass. 01002 


ATHE POLLOZIUG FUNCTION САП BE USED 
АТО КЕКСЕ, REARRAUCE, OR ROTATE 
AVECTORS. 
WIERGELDIV 
V 2+А MERGE BiCiliJ 
] ATHE PIRSY 1186 CH 
1 >(((22<р3<,3)«2Л<рЛ<,4)р3),((-л/Ле1 0)рч),5 
1 1.4: а-а 
2 +'at 
J K<(+/A)+I<*L< 1+7Z<41 
J 
] 
3 


БРД РВ 
SECHS FOR ERROR COPDITIOUS 


J<*RA-—J 

2+0pB 
20:>(У<1<241)/0 
(91 »Һ1%2х4(11 

[10] Zi1:2*+2,B[x+Z+1] 


(111 +20 
{121 2+2,8{1+1+1] 
[13] +L0 

v 


] 
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ACYCLIC RIGHT ROTATION OF LAST THREE ELEMENTS 
1 1 0 1 1МЕКСЕ 'ABCDE' 


ABECD 

acYCLIC LEFT ROTATION OF FIRST THREE ELEMENTS 

0 0 1 0 0 MERGE 'ABCDE' 
BCADE 

ВМЕАСТИС TWO VECTORS 

1 0 1 0 1 0 MERGE 'ABC','123' 
A1B2C3 

aMERGING TWO VECTORS 

1 1 0 0 1 0 MERGE 'ABC' ,!123' 
AB12C3 

BLEFT ROTATION BY THREE POSITIONS 

000 0 1 1 1 MERGE 'ILLBURR' 
BURRILL 


aCYCLIC LEFT ROTATION BY TWO 
APOSITIONS OF MIDDLE THREE ELENENTS 
101 1 0 MERGE ı5 

1 84 2 3 5 


ATHE FUNCTION SHOULD BE LOCKED TO 
ABEST DISPLAY ERROR CONDITIONS. 
VHERGE 

[14] * 
0 1 MERGE 13 

LENGTH ERROR 

0 1 МЕЕбЕ\З 

^ 


Number 49 Mathematical Physics Functions 


R. B. Roden and E. A. Buchheit 
Department of Applied Analysis and 
Computer Science 

Faculty of Mathematics 

University of Waterloo 

Waterloo, Ontario, Canada 


DBESSEL 


ROUTINES FOR CALCULATING BESSEL FUNCTIONS ARE: 
Z+N BESX X CALCULATES THE N-TH ORDER BESSEL FUNCTION 
FOR A SCALAR INTEGER N AND A VECTOR OF I ARGUMENTS. 


2-4 BESN X CALCULATES TRE N-TH ORDER BESSEL FUNCTIONS 
FOR A VECTOR OF INTEGERS N AND A SCALAR X ARGUMENT. 
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(EITHER BESN OR BESX WILL WORK IF N AND X ARE BOTH SCALARS.) 


Z+N FRACBES X CALCULATES THE N-TH ORDER BESSEL FUNCTIONS 
FOR A VECTOR OF ARGUMENTS X AND A SCALAR ORDER N WHICH MAY BE 
ANY VALUE EXCEPT A NEGATIVE INTEGER. IF N IS NOT AN INTEGER, 
THEN X MUST NOT BE NEGATIVE, 


Z+N FRACBESL X PRODUCES THE SAME RESULT AS FRACBES. IT IS 
SLOWER THAN FRACBES, BUT WILL WORK ON LARGE VALUES OF X (X»15) 
AND N (N>25), WHERE FRACBES PRODUCES A DOMAIN ERROR. 


BESN AND BESX USE THE INTEGRAL FORM OF THE INTEGER-ORDER 
BESSEL FUNCTION, FRACBES SUMS THE FIRST 20 (OR 30 IF 10<[/Х) 
TERMS IN THE POWER SERIES OF THE BESSEL FUNCTION. FRACBESL 
SUMS TERMS UNTIL A TERM LESS THAN .000000000001xCURRENT SUM 
IS ENCOUNTERED, 


Z+N SPHRBES X AND 2+N SPHRBESL X USE FRACBES AND FRACBESL 
TO COMPUTE THE SPHERICAL BESSEL FUNCTION OF INTEGER ORDER N 
FOR A VECTOR OF POSITIVE ARGUMENTS X. 


TESTS INDICATE THAT ACCURACY IS AT LEAST 8 SIGNIFICANT 
DIGITS (EXCEPT IN THE NEIGHBOURHOOD OF ZEROS) IF SO»|X 
AND 4O>{N . 


ҮВЕ5ХІП19 
У Z-N BESX X;T 
[12 2<0.025х(2|/%1)%%/20(Х>,х107)-((рХ),39)р4х7<(00.025)х139 


VBESNUOJV 
V Z«N BESN X;T 
[1] 2<0.025х(2|М%1)%%/20(((р07),39)рХх107)-Ме.хТ7%(00.025)х139 


VPRACBESLDIV 
У Z+N FRACBES Х.К 
[13 2<((0.5хХ)е,ж0%2хК)-.%(!КУх!М%К<0,120%10хУ/,105Х 


VFRACBESLLOJV 
V Z+N FRACBESL X;T;K 
111 ZeTe-((0.5xX) *N) 5 1N«K«0 
[2] 72xiv/,C| T)» | 2E 12xZeZ& T« - Tx XxX suxXKx Ne K-K1 


21. 
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У5РЕВВЕ$ [019 
Z<N SPHRBES І 
2+((0+2хХ)я0,5)х(№+0.5) FRACBES X 


VSPHRBESLEU]IV 
Z+N SPHRBESL X 
2<((о%2хХ)»0.5)х(8%0.5) FRACBESL X 


DERF 


THE FUNCTION Z+ERF X EVALUATES THE ERROR FUNCTION FOR A SET 
OF X VALUES. ACCURACY IS AT LEAST 10 SIGNIFICANT FIGURES FOR OsXs3. 


VERFLOIV 
У 2ФЕВР Х.К 
[1] 2-1.128379167095513х(Хо.34К)-,4(К«142хК)х1К«0,180 
v 


DHERMITE 


Z+N HERMITE X EVALUATES THE HERMITE POLYBOMIAL OP ORDER N 
(A NON-NEGATIVE INTEGER) FOR A SET OF ARGUMENTS X. 


VHERMITECOIV 


Ч 2+N HERMITE X;K;S 
11) 24((2хХХ)ө,4К)-.х(11)4(1К-1-2х5)х1840,11 N42 
У 


DLAGUERRE 


Z+N LAGUERRE X EVALUATES THE LAGUERRE POLYNOMIAL OF ORDER 
N (A NON-NEGATIVE INTEGER) FOR A SET OF ARGUMENTS X. 


VLAGUERRELU]V 
V Z«N LAGUERRE X;K 
111 Ze(Xo ж) - хла) IN) (CI KN -K) *2)x TK ON 
v 


DLEGENDRE 


Z+N LEGENDRE X EVALUATES THE LEGEHDRE POLYNOMIAL OF ORDER 
N (A NON-NEGATIVE INTEGER) FOR A SET OF ARGUMERTS X. 


VLEGENDRELU]V 
V 2+Н LEGENDRE X;K;P 

Ze(Xs .«P)- .xCIN«P)5 (2&N)xCIK)xCIN-K)x IP-N-2xKe0, 11 N42 
v 
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DPSI 


THE FUNCTION Y+PSI X EVALUATES THE PSI FUNCTION FOR A SINGLE 
SCALAR VALUE OF X. X MUST NOT BE ZERO OR A NEGATIVE INTEGER. THE 
GLOBAL VARIABLE Z (CONTAINING VALUES OF. THE RIEMANN ZETA РИНСТТОМ) 
IS REQUIRED BY THE PSI ROUTINE 


vPSILDIV 
V 2+PSI X;N;Y 
(11 24((хМ)х«/4(ХГҮ)-1118)-0.5772156649015329--/2х(714Ү-Х-141Х-0.5)х135 
ç 


2 


1.644934066848226 
1.202056903159594 
1.082323233711138 
1.03692775515337 

1.017343061984449 
1.008349277381923 
1.004077356197944 
1.002008392826082 
1.000994575127818 
1.000494188604119 
1.000246086553308 
1.000122713347578 
1.000061248135059 
1.000030588236307 
1.000015282259409 
1.000007637197638 
1.000003817293265 
1.000001908212717 
1.000000953962034 
1.000000476932987 
1.000000238450502 
1.000000119219925 
1.000000059608189 
1.000000029803503 
1.000000014901554 
1.000000007450711 
1.000000003725334 
1.000000001862659 
1.000000000931327 
1.000000000465663 
1,000000000232831 
1.000000000116415 
1.000000000058208 
1.000000000029104 
1.000000000015552 


23. 
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Number 50 Eigenvalues and Determinants 


R. B. Roden and E. A. Buchheit 
Department of Applied Analysis 
and Computer Science 

Faculty of Mathematics 
University of Waterloo 
Waterloo, Ontario, Canada 


DEIGVAL 


THE ROUTINE V+E EIGVAL M ESTIMATES THE EIGENVALUES OF THE 
SQUARE MATRIX M AND RETURNS AS MANY AS IT CAN FIND IN THE VECTOR V. 
EIGENVALUES ARE CALCULATED ITERATIVELY BY THE POWER METHOD AND THEN 
FACTORED OUT BY DEFLATION OF THE MATRIX. REFERENCE: NUMERICAL 
CALCULATIONS AND ALGORITHMS, BECKETT AND HURT, MCGRAW-HILL, Р.125-138. 

E IS A TWO-ELEMENT VECTOR CONTAINING: THE MAXIMUM NUMBER OF 
ITERATIONS TO BE PERMITTED IN SEEKING ANY SINGLE EIGENVALUE; AND THE 
MAXIMUM ERROR PERMITTED IN THE ESTIMATE OF ANY ELEMENT OF THE 
EIGENVECTOR. 

FOR EXAMPLE: 50 1Е712 EICVAL 3 3 р 10 20963 524 
RETURNS THE RESULT: 12.49818098 6.548839815 0.9529792094 

SINCE THIS ROUTINE NORMALIZES THE ЕТСЕПУЕСТОВ IN TERMS ОР ITS 
FIRST COMPONENT, AN ERROR CONDITION WILL OCCUR IF THE FIRST 
COMPONENT IS ZERO. 


vEIGVALUDIV 
V ў«Е EIGVAL A;V;C;X;Y;L 
[1] V<, O 
[2] Х+(1+рА)р1+С+0 
[3] +(E[11>C<*C+1)x(E[2]<[ /[Y-X<X+L<1+*X<A+.xY<X)/3 
[53 +2х12514рА+ 1 1 A-Xo.x4[1;1,00V-V,L 
(51 V+V,,A 


DDETER 


D+DETER M USES GAUSSIAN ELIMINATION TO CALCULATE THE DETERMINANT 
OF A SQUARE MATRIX М, 


VDETERLD]V 
V Z+DETER M 
[1] 2+MC131) 
[2] @+2х(М+ 1 1 44-(0,14MC ;11)9 .xME 1; J€ME 15 2 MC 15122001511 
Ез] »2х1<1%рМ 


24. 
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late news 
SHARE XXXVI 


SHARE, the organization of users of IBM System 360, Models 44 and up, and System 
370, Models 155 and up, met in Los Angeles March 8-12, 1971 and the APL Project held four 
sessions for general attendance and four sessions were held for project members. 


The open sessions, held Wednesday afternoon and Thursday morning were chaired 
respectively by Gerry Gabel, University of Alberta, and Tom Puckett, New Mexico State 
University. At both of those sessions the speaker was AZ Rose of Scientific Time Sharing 


Corporation, who conducted a tutorial on APL interwoven with an informal course on how to 
teach APL. 


Attendance at the sessions numbered about 50 each day with those present being eli- 
gible to receive "door prizes" consisting of some 30 copies of APL\360: An Interactive 


pproach, donated by John Wiley, Inc., and a large supply of the new User's and General 
Information Manuals, donated by IBM. 


For those persons who had never attended one of Al’s tutorials there was a great 
deal of teaching technique provided, and even those who had been to a previous presenta- 


ition of this type admitted that they learned some new wrinkles, even if they had heard 
the quips before. 


The closed sessions consisted of a top-notch presentation by Ev Allen, IBM, Palo 
1to, оп APL internals. That talk had originally been billed as being one to disclose 
11 about the Keyword facility, and how to put the interpreter into your own supervisor. 


These two subjects were addressed only briefly in that XM6 does not support Keywords 
nd although source is now available the user is advised to tread gently in removing the 
nterpreter from XM6 and providing your own supervisor. (See more Late News - G.H.F.) 


Another ver-r-y interesting session was provided by Gord Ramer, of York University 
Ін Toronto, who had written his own APL. While it has followed the IBM implementation in 
any respects it treats a number of aspects differently, including the handling of some 
orkspace concepts. While Gord's paper will appear in the SHARE XXXVI Proceedings we 
hope to also have it appear in the Quote-Quad in the near Future. 


Joe Perry, IBM, Washington, was introduced as a new link in IBM liason with the user 


roup. He made a number of remarks about the function of the group in IBM with which he 
s associated. 


The work sessions began with an announcement of a soon to be published paper by 
.H. Lathwell and J. E. Mezei of IBM on a "Formal Description of APL". The announcement 
elated to a resolution passed by the AP; Project a year ago, which asked IBM to make 
vailable any material which would lead to a formal description of AFL. 


When the document becomes available we will inform you through this publication. 


Some proposed extensions to the System Command structure were advanced by John R. 
lark and Will Marshall of the Coast Community College District. One of those ideas was 


incorporated into the resolutions past and it is hoped that condensed presentation of the 
emainder can appear here іп the near future. 
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Seven resolutions were passed for transmittal to IBM; in order of passage, with no 
implication as to importance, they are: 


1) Ability to output a line to the terminal and then begin input on the same line. 


The "glitch" providing quote-quad output in XM] was disabled in XM6 (see below). 
This resolution asks for better 1/0 control. 


2) Institutions of a )NOMESSAGES LTEXTj command. 


When executed from a terminal, anyone sending a message received a message such as 
VO MESSAGES or BUSY . Using the optional TEXT allows a message of up to 120 characters 
to replace the standard message sent to the sender. Another command such as )MESSAGES 
removes the block and displays the current PA, giving a means of displaying the current 
PA. 


3) Make the dollar sign, (S, backspace, vertical bar) a legal character for input 
and output. 


4) A shared file system allowing users to store a number of APL global objects, the 
aggregate size of a workspace, and to share their use with others under function 
control with deadiocks being prevented or resolved by the system. 


5) The utilities and/or access method to allow high speed, large volume 1/0 between 
АРЫ and the host system. 


Both of the above have been extensively in these papers as well as previous meetings 
of the APL community. 


6) The execute or unquote function. 


This function had also had as extensive discussion and may be found on some APL 
implementations now. 


7) The implementation of one or more of: the scan operator, set union, intersection 
or containment. 


The fate of these suggestions, it is hoped, will be known prior to the next SHARE 
meeting in New York. 


As a closing comment note that the APL Project welcomes serious participation by any 
member of a SHARE installation. If interested contact G. Foster at the address on the 
back. 


NEWS FLASHES: 


The domino or quad-divide for matrix division is described in "The Solution of Linear 
Systems of Equations and Linear Least Squares Problems in АРЬ by New York Scientific 
Center Technical Report number 320-2989. 


You may return the ЇЇ output to XM6 by deleting cards: 05200000, 05400000, 45400000, 
and 45600000 from APLSGOUT. 


Dr. Alan Perlis, Carnegie-Mellon University, reports that their PDP 10 APL is now in 
operation and includes all features of the APL\360 implementation and permits either 2741 
like or TTY terminal use. He indicated that some of the optimization techniques intro- 
duced by Phil Abrams in his thesis have been included. 


26. d 


March 17, 1971 - Vol. И, No. 6 /213 


INNER PRODUCTS ??? 


The best entry in the Inner Product Contest in the conventional sense would have- 
to go to R. B. Roden of the University of Waterloo, Ontario, for his use of - . + in 
his error function which appears on page 22 of this issue. (See also the Bessel ‚unc- 
tions.) This entry is worth at least a second place. 


Another interesting entry came from Dr. Mitchell Snyder, Bar-Ilan University, 
Ramat-Gan, Israel, who suggests У Г. ? M which does not fit under present rules since 
? is not scalar in its dyadic form. Does the thought of having mixed functions in 
inner and outer products suggest any possibilities? 


The most interesting entry comes from Roger Moore, 1. P. Sharp Associates, 
Toronto, who points out that on the "new improved" 5732-XM6 or 5736-XM6 executing 
о B ^. = & B + 500 1р1 іп a CLEAR WS produces a register dump and a SYSTEM ERROR . Не 
suggests that a call to the QUEND macro be inserted immediately after card 5272 of 
APLSVDOP in order to "destroy" his interesting inner product entry. His Post Script 
that another call to the QUEND macro after card 3712 in the same assembly fixes the 
bug encountered when something like ^/ 125000 1 p 1 is attempted. (Way to go IBM!) 


First place goes to Moore and second to Roden for interesting entries. Anybody 
else have something to contribute? 
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editorial 


Quote—Quad lives!! A new volume begins with a fat issue. We are indebted to John 
Clark for his work in very quickly assembling short abstracts from as many of the 
Berkeley Conference speakers as possible and supplying reports on the remainder. 
He has also collected three more substantial papers which will be published in future 
issues of Quote—Quad. Articles from any other Conference contributors would be 
welcomed. 


We would also appreciate details of any publications of interest to APL users which 
could be included in the bibliography. In some cases authors send details — we would 
encourage this courtesy. However, anyone who locates a publication missed by Quote— 
Quad should write to the editors 


Issues can be balanced in size by holding back articles. However. most of the articles 
received are important ones needing to be published as soon as possible. Consequently, 

a deadline is set and all articles received by that date are published. Quote—Quad therefore 
Varies in size and content from one issue to another. Also, of course, articles just missing 
one deadline will wait the longest for publication. The deadline for the next issue of 
Quote—Quad will be Monday, August 16th. 


This issue has an interesting addition. Robert Smith of Laurel, Maryland has a problem 
section which will be a regular feature. He starts with 9 problems — the solutions will 
be given in the next issue. Anyone who has a problem for inclusion should forward it 
to Robert Smith at the address printed above the problem section. He will then edit 
the problems he receives. 


Surely Larry Breed is not the only person prepared to reply to queries on APL? Tom 
MeMurchie asked some time ago why АГВ1Г С] wasan error іп APL/360. So far 
no one has replied. Can anyone come up with a solution to a problem posed by Larry 
Breed at Berkeley? The result of the assignment 


41100116110 


is not defined in the language, but is dependent upon the implementation. Can anyone 
see how to resolve this? 


As shown by the calendar of events — there is another APL Conference in Paris in 
September. We wish our European friends well with their Conference. and hope that 
some North Americans will cross the Atlantic to be there. 
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York University. as most people probably know have written their own version of an 
O'S APL tor IBM 360. They have recently added a powerful execute or unquote 
function - it can deal with APL language statements. system commands and definition 
mode entries. The issue number 6, dated April 15th. 1970 of the Computer Centre 
Newsletter issued by Ryerson Polytechnical Institute of 50 Gould Street, Toronto 
lists 37 differences between the two 360 systems. 


The Computer Company of Richmond. Уа. APL service vendors. claim a four-fold 
expansion in the past 10 months. Their file access system has been improved to give 
greater reliability. Take SOO bytes less of storage space in a workspace and operate up 
to 50 percent faster. They also now have fast formatting and data translation functions. 


БАГ: 


Computer Innovations of 10225 South Western Avenue, Chicago have produced а 9 
hour multi-media introduction to APL 


Philip Abrams! company. CEGOS Informatique. has opened the first APL Service 
Bureau in France on a 360 05, 


The following useful additions have been made to the STSC and LP. Sharpe APL plus 

system: 

t A function which conditions the workspace to simulate a J CONTINUE HOLD 
command the next time execution stops - so that a long program may be left 


то run. 
2. An increase in the WIDTH command to 254 character width for use with new 
larger width printing terminals. 


3. А storage and return of the correct part of an entry when a character error is made. 

4 А means for a User to request a set of overstruck characters before entering a 
password so that the password is illegible 

5 А new system command that ean seal a workspace to prevent modification or 


dispersal of its contents 


A report from the Division of Educational Services of the University of Alberta 
s found with 


(mentioned in bibliography section) discusses some of the disadvantag 
both aecoustic couplers and the MTS АРТ 


Anyone interested in the mised linear programming package mentioned in volume 2, 


no. 6 of March 17th, 197] should direct enquiries through their IBM representative. 
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articles 


A Summary of the Presentations at APL Users Conference Workshop 3 


Berkeley, California 

April 20—21. 1971 

John R. Clark 

Thomas R. Dickson 

William H. Marshall 

Angeloa Segalla 

Coast Community College District 
Costa Mesa, California 


Those summaries marked by an asterisk were compiled from notes and are not based 
on papers submitted in writing or the author's summary. Any errors or misstatements 
are the responsibility of the note takers. 


APL as a Conversational Language — What is Missing?* 
— ELE 


Dr. Alan Perlis 
Carnegie Mellon 


Only good inventions merit improvement: APL is good and merits a lot of improvement. 
The elegance of APL is a bar to change and any changes should not greatly change the 
style and techniques of the language. APL is a natural extension of assembly language 
programming: it appeals to various types of thinking and is best for educational 
purposes. APL is conversational as a result of the nature of APL as a system. Ina 
conversational language the programmer is in constant contact with the program. A 
symmetry exists between the machine and the programmer such that program data is 
independent of the source of the data. 


What is missing in APL? The system should allow the dynamic improvement of the 
program. When some undefined variable is encountered. the system should ask for the 
value. True top-down programming should be implemented. It would be desirable to 
extend editing capabilities to piece a function together without terminal input. A 
procedure to generate programs from pieces is needed, as well as the execution of system 
vommands within programs. There isa need for APL subsystems since one man’s con- 
stant is another man’s variable. An APL compiler. optimally a conversational compiler, 
is needed. The system should aid the programmer in flushing out incorrect programs. 
The programmer should be able to compute in the middle of a program, The block 
structure of Algol could be incorporated into APL. The powerful procedure approach 
should be more fully developed in APL. 


A formal definition of APL is needed. APL changes should be done with care, but they 
must be made. They will be difficult if the system of APL is to be maintained. Today. 
the S’360 version of APL serves as a working standard but a fixed APL standard should 
be avoided at this time. 
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A Set of APL Programs for Use in Network Theory 


Dr. Paul Penfield. Jr 
Massachusetts Institute of Technology 


A set of general-purpose programs for analyzing linear electrical networks. named Martha, 
has been available (о APL users at M.LT. since September. 1970 


The programs analyze most linear “transmission-type” networks with an input and ап 
output, as а function of frequency. 


“Wiring operators” are used to form a network for simpler sub-networks. For example. 
consider the network — 


SCR: Зур te 2k. 


where Ry. Ly. Ry. and Сү. ure elements of S and P are the wiring operators. 


Martha uses the fourteen operators: Р. S. WP. WS, WC, WTO, WTS, WT. WPP. WPS. WN.WSP, 
WSS, WROT. The figure below illustrates the operator WC. 


о А В 


Although Martha has not been used significantly by lower division students. it has proved 
fruitful for juniors. seniors and graduate students at М.Т. The later group. for example. 
has used Martha to model microwave circuits and intermodulation distortion products in 
a slightly nonlinear circuit 


An On-Line Proof Checker Operating under APL/360, with Applications for Computer- 
Aided Instruction in Logic, Mathematics. and Computer Science 


Paul D. Page 

University of California at Los Angeles 

A formal proof checker and basic theorem prover for predicate logic with equality has 
been implemented under the APL 360 system at UCLA. This proof-checking program 
Operates in an on-line interactive mode and has the following characteristics: 


——— см) 


v 
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The program implements the Kalish—Montague system of formal logic. 

The input language is natura! and convenient. 

Allowed assumptions are automatically supplied. 

Proof and subproof completion are automatically detected. 

All necessary lines of logical inference in the Kalish-Montague system are available. 
Logical inferences may be performed by supplying only the name of the inference 
rule involved: this provides an abbreviated input form. 

7. Useful theorems and axioms may be recalled for use. 

8. Intuitive jumps in reasoning can be made. causing the proof checker to invoke its 
theorem proving functions in order to resolve the logical discontinuity. 


CE 


This proof checker. due to its natural input-output language, is well suited for use asa 
study tool by students of logic, mathematics, and computer science. It is planned that 
the program will be used as a basis upon which to build systems for: 

|l. Computer-aided instruction in symbolic logic. 

2 Proving theorems of mathematics (algebra and number theory). 

3. Proving correctness of simple computer programs. 


The CDC Star — 100 An APL Oriented Machine 


This tatk covered briefly the STAR computer hardware including Physical Memory 
Structure, Virtual Memory Structure and Instruction set. The Sub-Options available 
for a typical vector instruction were explained. The APL like characteristics of the 
machine were indicated. Its limitations for TENSORS of rank greater than | were 
pointed out. 


A comparision of the instruction set of STAR and the vector extensions of the 
primitive scalar functions (as defined by IBM) showed that about 60% of the vector 
primitive functions were directly available in the instruction set. A similar comparison 
with the mixed primitive functions showed about 50% of the vector forms 

available in the instruction set. 


APL functions defined in Iversons book but not in current implementations, such as 
mask, mesh, maximization and minimization. which exsist as single instructions on 
STAR were cited. The conclusion was that more than 50% of APL functions are built 
into the STAR instruction set and that APL should perform well on the STAR. 


Conditional Branch. APL Compiler 


Dr. John Williams 
Cornell 


Two extensions have been added to the LRL implemetation of APL on the CDC 7600 
The first extension, the monadic = or execute operator as has been discussed in previous 
APL meetings. This extension allows 


Ae(2 3o 'BeCD«E')L[ I1] 


224/ APL QUOTE-QUAD 


r 


which corresponds to: 
A+B+C 
А+2+Е 


The second is а conditional IF operator. The IF operator is monadic, but functions as 
a dyadic operator. 


А--А IF А0 


This operator allows the creation of one line recursive functions. 


[2] 
Several problems are involved in attempting to compile APL programs in machine code. 
The fact that "A" may be a function in “F” and a variable in "G" is such a problem. 


[i? 2-Х 7 


It is possible that some restructions to the language must be imposed to facilitate compil- 
ation, however, such restrictions should maintain an upwards compatability with the 
full interperative APL. 


A Language Machine 


Zaks and Steingart 
Center tor Research and Management Sciences 
University of Calitornia at Berkeley 


A devoted time-sharing system is being developed at the University of California at 
Berkeley for control of behavioral science experiments. The APL language has been 
tound to be very effective in complex decision-making simulations. Thus. the source 
language of the system is a special dialect of APL. 


Meta—APL is a two processor, time-sharing system being developed by the Center for 
Research and Management Sciences, University of California at Berkeley. The first 
machine is a powerful microprogrammed processor with a very fast read-only memory. 
This processor contains an APL interpreter and a time-sharing monitor. It serves as 

à dedicated hardware APL processor. communicating through core with the second 
processor. This second processor handles all peripheral devices and provides process- 
ing capabilities such as editing, formatting. and conversion from external APL to 


6 internal APL. The system is in development and wil! be complete sometime in 1971. 
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Bulk 1/0 and Communications with LTSS 


Jerry L. Owens 
Livermore Time Sharing System 


An extension to APL is being put into an APL interpreter running on the CDC 6600 
and 7600 at Lawrence Radiation Laboratory in Livermore. This extension allows 

a programmer to do 1/0. file manipulation and system calls within his APL program. 
The extension consists of a dyadic I-Beam (Note: In LRL’s APL character set, for a 
mod 33 TTY."S is used for the I-Beam). Figure І describes the syntax and meanings 
for this extension. 


It is intended that the create call have the effect of creating something that does not 
exist and return a 0 if the thing created already exists. The open call attaches the 
APL program to something that already exists and returns a 0 if the thing opened 
does not exist. Some possible contents for the character string X are illustrated in 
Figure II. 


It will not be necessary to open or create a file or tape before reading or writing it. 
But the first time a file is read or written, it will be necessary to supply enough 
information so that the read can be performed. The information needed for a read 

is: the medium and name: the address (note: address for tapes means record number 
and for disks it means that word number); the size of the read; the mode (BCD or 
binary). if coming from tape: and. the data type. 


LRL DYADICS “S 


Result Syntax Type of Op. 
Values Read in 1“ SX Read 
Values written out (1" SX) Write 

O if error 

lifOK 4“ SX Create 

О if error 

1 if OK 5“ SX Open 

0 if error 

1 if OK 6" SX Close 

0 if error 

lif OK 7" SX Destroy 

О if error 

lit OK -9" SX System Call 


X іза character string 
Note: Execution stops if a read or write fails for any reason 


Figure 1 
EXAMPLES OF CHARACTER STRINGS FOR *S 
"Fle( ) Add ( ) Size ( 3 Type (У 


"Tape ( ) Add ( ). Mode ( )Size (0) Type (У 
’CTLR (Y 
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СІБЕ?) 
"ELE: TE 
`TTY` 


“System 41 Inc 0 Out ( Y 

‘Filed у Size t Y 

Any executable statement may appear inside the ( ) 
The possible values of the argument to type are: 


0 = Log 

1 = Char 
2 = Integer 
3 = Float 


Generalized Lists and Other Extensions? 


Jim Ryan 
Burroughs Corporation 


With the introduction of lists asa data type in the APL language. it would be possible 
for the APL user to: 

a Save and modify subscripts while executing a program 

b Save and modity arguments to functions while executing a program. 

©. Work with structured data as found in COBOL and PL/I 


The lists may be described using the notation for trees and would he represented in a 
manner simular to the current use of subseripts. Operations on lists would require the 


introduction of new operators 


1 7 Figure | represents a 4 level tree which would 
P d be defined by the APL user as: 
2 A 
3 F ЗЕРЕ 
Е sE;F)) 
Ж. 26:22: 
Figure | 


It is possible Гог any fork to have many hranches and any leaf can be obtained by 
using an access vector which indicates which branches to take, 


B = 112111 


Е «+ T[2 2] 


r Е 
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Additional trees can be constructed as in Figure 2. 


чи, 


Figure 2 


The operator © would yield the shape of the tree. 


2 < 81117 => Indicating level 1 of T has two branches. 


(2:3) «> 21217 < Indicating at level 2 the left branch of T 


has terminated and the right branch is the 
start of a three branch subtree. 


By use of the ” additional list operators could be defined. 


< The first occurance of D in T. 


X + Y would add corresponding elements ol X and Y with leaf F replicated to 
correspond to leats B and C. An error simular to a length error would occur if 
simple replication is not possible. 


= 
е 


Two new symbols are proposed to cover the problem of the dequote operator. 
Monadic + for Dequote 
Monadic т for Enquote 
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11 ++ 11348! 


"114 ++ 13 + 8 


In order to avoid repeating subscripts when incrementing an element of an array, the 
notation 


ХЕ-- ;--;--2++5 


replaces 


ХГ----і--1- ХІ--;--;--1% 5 


LRL APL Implementation on CDC 6000...7600* 


Dr. Ned Dairike 
Livermore Radiation Laboratory 


The preparation for the STAR computer. included the implementation of APL on the 
existing CDC6000-7600. The implementation runs under the Livermore Time Sharing 
System. Each user has his own copy of APL and is provided with a variable workspace. 

The size of the workspace may be determined at initial sign on, by system command 

and by dynamic allocation. The maximum size of the workspace is the size of the computer. 


The existing 200 teletype terminals forced the adoption of a new character set. Some 
substitutions are: “F for Minimum, “C for Maximum, “I for iota,"$+ for Nor, “U for 
grade up, “Р for grade down. This character set has been found to be usable. 


Some time statistics were obtained with the same function running on the CDC vs an IBM 
model 50 and model 91 computer. Various tests on the Ackerman function gave a ratio 
1:13.1:1.43 for the CDC, model 50, and model 91, respectively. Time statistics dealing 
with matrix inversion yielded a ratio of 1:17.2:1.67. 


Time Sharing APL for IBM 1130 Systems 


Thomas P. Daniell 
IBM 


APL/1130—MTCA is a program for IBM 1130 systems which provides APL service for 
multiple terminals. Access to the program is provided by IBM 274] Communications 
terminals. The program requires at least 16K words of core storage and at least one 2310 
disk storage drive. 


Most of the APL/1130- MTCA program is disk resident. Portions of the program are 
transferred to core storage as required by user activities. All of the primitive functions 
supported by APL/360-OS are supported Бу APL/1130-MTCA. Arrays up to rank 
eight and having up to 32767 elements are supported. 
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All user workspaces (including active workspaces) are disk resident. Portions of a user's 
active workspace are brought into core storage as required by his activities. Each 
terminal user is allocated a fixed area on one of the library disk packs. This allocation 
is shared by his active workspace and by the workspace in his library. The size of his 
active workspace may be changed bv the user or may be made to vary dynamically. 


APL on the Honeywell 635 


Norman Glick and Richard Schrader 
National Security Agency 


APL has been implemented for the Honeywell 635 computer. Most of the primitives 
have been implemented and some special system commands provide linkage to other 
subsystems within the GECOS operating system. The computer system is a Honeywell 
635 with 256 K of core, two DSU 270 disk units and one MDS drum unit. Thirty IBM 
2741 typewriter terminals are hard-wired to the system. 


The implementation language is Fortran IV. with some assembly language routines. 
The ASCH character set is used rather than the APL character set since the terminals 
are used most often for other TSS subsystems. The APL operators are selected from 
the svmbols. upper case letters and a few lower case reserved words. The choice of 
characters was based on four factors. First. some of the APL characters are in the 
ASCII set. Second, the same keyboard positions are used in some cases. Third, some 
ASCII characters and APL characters are similar in appearance. Fourth. a mnemonic 
fetter is used if needed. When necessary, a two or three letter keyword is used. A set 
of system commands. similar to APL/360 has been implemented. Three of these are 
unique to APL’635. The INCLUDE command provides for the input to APL from 
ASCH files. The DDT command provides entry to a powerful debug package. The 
JCMDINT provides a link to the rest of GEOs TSS from APL. 


The size of APL/635 is 36 К and а 3000 word table represents the size of the workspace. 


А Micro- Programmed Implementation of an APL Machine 
— LL 


А. Hassitt. J. W. Lageshulte. L. G. Lyon 
IBM Corporation. Palo Alto Scientific Center 


The standard IBM 360 is a micro-programmed machine, This means that the hardware 
can execute certain single operations and a micro-program (the 360 emulator) uses a 
sequence of these simple operations to execute a single 360 instruction. We have 
written an APL emulator which runs on the Model 25 hardware and which directly 
executes APL code. There is a simple translation from external APL code to internal 
APL machine form; this process is not compilation. it is simular to an assembler 
process. The microcode handles the complete execution of the following: statement, 
sean und syntax analysis, space management and garbage collect: function call and 
return: most of the scalar operations on scalars, vectors and arrays, assignment. go to, 
monadie rho and iota, diadic rho. scalar and vector subscripts and scalar or vector 
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compress and expand. The machine does support the full language: if the microcode 
encounters an operator which is not implemented in microcode (for example the 
dyadic 9 ) then it automatically calls an APL system function which does the approp- 
riate function and returns to the microcode. We have written a simple one user super- 
visor! translator which is written іл APL and which ran on the APL machine. The 
machine has been fully operational since June, 1970. 


Comparative times in micro second for the operator 4-86 is shown in the table below. 


No Elements APL -25 ALC-25 
Sealar 682 298 


1491 


Vector 5 
10 3926 
20 7796 
40 15536 
N 56%387М 


APL:700 — An АРІ. Implementation for theBurroughs 6700 and 7700 


Jim Ryan 
Burroughs 


The APL/700 implementation is based on interactivity between the user and the work- 
space. Optimum error recovery is provided which allows the user to restore the work- 
space environment to its initial state prior to the execution of a function which failed 
to complete execution. Phantom length errors are weeded out when the result of the 
next operation does not require more elements than the shortest vector. 


Environmental protection and error recovery is by the use of "soft" and "hard" 
functions. А soft function is a function which has just under-gone some form of 
editing. Several executions without modification of a soft function, will cause it 
to evolve into а hard function. While in a soft state, assignments to global variables 
are kept in temporary locations. until the function has completed execution 


A length error which would he generated in the major implementation of APL by 


the statement y, 545i, 


{РА} =рё 
2stoA)foR 


would not appear. due to the list structure recognizing that only two elements of 
the addition is required for the multiplication. 


Statements entered from the terminal are checked for visual accuracy before being 
placed in the code stream. [fan error is found, the user has the ability to edit the 
stutement even though he may be in calculator mode at the time. The user is given 
the option of editing the statement. providing a value or aborting and throwing away 
side effects generated when executing a statement %<4+P where B is undefined. 


eee 
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An 8- Bit ASCI Code 
Dr. John Fletcher 


А subcommittee of the X3L? group is currently studying ап 8-bit code which may 
become the new АЗСИ standard. 


Many of the current APL symbols are included. For those APL characters not included 
in the new ASCII proposal. the following substitituions are proposed. 


- „ ' 


I р 
x a~ n DR 
o = & 
ж т +$ 
[ iS е ® 
L “ я v 
* 2 m. dm 
' d è p 


т T 


One apparent advantage to this new convention, is the elimination of the current 
overtrike characters. However, it should be noted, a large computer manufacture did 
not adopt the current 7—bit ASCH standard and may not be completely overwhelmed 
by this new 8-bit proposal. 


The MRX 1240 Communication Terminal and }270 Transmission Control Unit* 


David Sant 
Memorex Corporation 


The MRX 1240 was designed from the ground up to be a computer communications 
terminal. It is a line printer device capable of speed up to 60 characters per second. 
The full APL $/360 character set is supported as well as the extended APL characters 
of Burroughs /700 implementation. A pin feed option is available and forms of eight 
part paper may be handled by the terminal. A 1270 transmission control unit which 
is plug compatable with the $ /360. is required to support the terminal. Additional 
announcements are expected during the month of May. 


A Plotter of APL 


Mike Dayton 
Time Share Peripherals 


A computer-controlled plotter with a rather high degree of accuracy was demonstrated 
by Mike Dayton of Time Share Peripherals. 


The implications for such device are far reaching for APL users. 


—— ——————— ee :Jj 
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Abstract of the Proceedings at the SEAS APL Working Committee's Meeting 
Grenoble, Feb. 15th. 16:71 


Mr. Yves Leborgne. after giving a history of APL at the Research Centre, LaGaude, listed 
the following 10 current applications at that centre: 


Financial Analysis 

Budget Systems 

Simulation of Hardware 

Software Design - here "poor and simple" APL aids fast conversion to Assembler 
Project Planning . 1050 card input recommended 

Text Applications 

Review Distribution 

Documentation 

Personnel File System - again 1050 card input 

Process Control 


Sernausun- 


It was stated that programs in APL are so easy to write that it is often easier to make 
new programs than to modity old ones. 


At the IBM Centre in Copenhagen an information retrieval system has been developed 
in APL. 


Mr. Abrams told how to get the backspace character in the XM6 product for use with 
the new high resolution typeball (No. 1167114) 


XCOPY 314159 TEST KK 


Now BS is the backspace character. Mr. Abrams also mentioned that backspace and 
overstrike both enter into the width count for an output line. 


Mr. Rainer Kogan, IBM World Trade said that sometimes he does not get information 
about a new product until the time that it is announced in the US, resulting in later 
availability in World Trade. He also explained the difference between an "alpha 
announcement” when product tests still remain to be done and an “availability announce- 
ment” which gives a date for the shipping of a copy to the 6 distribution companies in 
World Trade. Further time is necessary for checking and duplication at the distribution 
company. 


The meeting divided into 3 working groups. The first discussed installation problems 
which mostly concerned the XMI product. It was the general impression that work 
concerning ХМІ on several installations had been given up due to bad documentation 
and the announcement of XM6. 


A second group considering application and teaching concluded that APL reduced the 
need for application packages — which are normally easy to develop when the need 
arises. They also suggested that any APL packages produced should be designed so 
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that they could be further developed by users. It was felt that basic training in EDP 
should be reshaped with more emphasis on information handling and less on flow- 
charting and the processing of scalars. The group also decided to circulate material 
through the chairman or secretary who would distribute it directly rather than start 
a European Quote-Quad. 


Adin Falkoff of the IBM Scientific Centre, Philadelphia gave a talk on the use of APL 

in teaching and system design. He emphasized the inspiring effect APL produces in 
giving students an easy way of working with real problems. APL could be used as a 
substitute for Course-Writer - the advantage being that a student could be given control. 
He can then experiment with some functions analogously to performing a laboratory 
experiment. 


MINIPERT designed in Assembler took 6 man years, in FORTRAN — 2 man years, in 
APL - 6 man months. APL tends to keep thinking simple in system design. Generality 
is important — APL is not committed to specitic hardware or software, to a special 
logical system or specific data-types. 


Mr. Falkoff stated that only a small part of OS had been modelled in APL. The 
experimental execute function implemented at the Philadelphia Scientific Centre does 
not execute system commands. Mr. Falkoff could not tell if or when IBM would 
implement an execute function with or without an ability to execute system commands. 


Appendices to the report are: 

L List of Participants. 

H Article — “Selection of a Medium for Program Exchange”. This article is 
reproduced below. 

HI APL notes for Principles of Transistors course from М.І.Т. 

IV An algorithm using the backspace character and the number 1167114 typeball for 
plotting fine curves. This will be reproduced in the algorithms section. 

V A listing of the part numbers of the APL typeballs and the language BCD typeballs 
used with APL in various countries. 

Anyone wishing for more information on this meeting should contact: 

Niels Gellert. NEUCC. 

Tech. University of Denmark. Building 305. 

2800 Lyngby, Denmark. 


Selection of a medium for program exchange (Appendix II to SEAS APL Proceedings) 
Ed. Hendricks 


During the SEAS—APL Working Committee meeting at NEUCC in October 1970, І 

was given the task of investigating the problem of “selection of a medium for program 
exchange”. Although [am not certain what might be involved in a proper investigation, 
1 have given the topic some thought and Í now offer a rather obvious suggestion and 
some comments. 


I propose that all APL systems provide a mechanism for reading and writing source 
program in ordinary EBCDIC card image records. Of course, the actual physical medium 
could be cards, tape. disks, or most anything else. The actual procedures for the 
processing of the symbolic program records would involve some new system commands, 
no doubt. and details would necessarily vary between unlike processors. (I presume 

that a variety of APL language processors will begin to appear shortly). The advantages 
of card image source as a medium are obvious — program exchange between unlike APL 
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systems would be most greatly facilitated, and APL source programs could be processed 
(key-punched, edited, updated. copied. etc.) by existing non-APL facilities. This is 
clearly not a very revolutionary proposal. as practically every other language processor I 
can bring to mind offers some similar facility. 


APL systems could also provide facilties for more efficient non-symbolic dumping and 
restoring of user programs (and data, perhaps) at a single installation. 1 think there are 
some important drawbacks, however, using a dump-restore facility as a medium for 
program exchange. The physical format of this sort of dump is usually chosen in an 
attempt to optimize efficiency under conditions existing in a particular system. It is 
probably inevitable that these conditions will vary and diversity rapidy when more than 
one system is involved. Adopting a standard non-symbolic dump format for a wide 
range of unlike systems would result in less optimum efficiency and occasional 
incompatibility, and so І would expect any such standard to be generally ignored. 
Furthermore, the potential for confusion inherent in program exchange is considerable. 
and so choosing an exchange medium to help reduce that confusion is most desireable. 
Any format which involves its own unique syntax rules can only serve to compound the 
confusion. 


Card-image format is a simple and general medium for practically any program exchange. 
and it offers the best hope for easy analysis of difficulties when they arise. In any case. 

1 don't think we can realistically expect any standard other than symbolic 80-column 
card format to be widely adopted. 


Modifications to the APL 1130/System to Provide More Convenient Operating on a 
Fortran User’s Machine 

Part 1 

1. F. Clementi 

IBM (Australia), 

95 North Terrace. 

Adelaide. 5000 

South Australia 

R. P. Fletcher, 

School ot Mathematical Sciences. 

The Flinders University of South Australia. 
Ве оға Park. 5042 

South Australia 


This year APL/1 130 is being introduced at Flinders University for use as a second 
language to FORTRAN. It is being taught to a small group of second year under- 
graduates, who will use it, rather than FORTRAN. for their programming in an intro- 
ductory Numerical Analysis course. and to other persons wishing to use APL/1130 as 

a second (or first) language. 

Since FORTRAN is the University's main language and since the machine (an 8k, 3.6 
microsecond, machine. with single disk drive. 1132 printer and 1442 card reader/punch) 
carries a heavy load. it is imperative that day-to-day APL computing be done via cards. 
This led us to look at possibilities of: 


i Improving throughput 
ii Making the system more convenient for the operators 
ii Making the system more convenient for the users 
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To date we have achieved the following successes: 


(2) CARD OPTION DEFAULTS 
The standard APL/1130 system provides that in card mode, unless otherwise specified 
the options EDIT and DISP will be in force. Clearly in our situation. the programmer 
would not normally be around to edit a work session from the keyboard, and further- 
more this wouid undesirably hold up the machine. We therefore decided to make the 
default options NOEDIT and DISP. This has the added advantage that the user does 
not have to include the 

CARD NOEDIT 
command and throughput is decreased by one card per work session. 


The necessary patches on the disk are: 
Change word /OOAF of sector /0287 to /А000 
Change word /0079 of sector ‘02CA to /A000 


(b) SPECIFICATION OF CARD MODE AT IPL 


The standard APL/1130 system requires that. if the first sign on after IPL is to come 
from cards, then switch 1 of the console entry switches must be up. This means that 
operators must remember to put up switch 1 when changing to the APL disk, since 
the 1130 monitor requires all switches to be down at cold start time. 


We decided to reverse the meaning of switch 1, i.e. now it is necessary to put switch 
1 up if the first sign on after [PL is to come from the keyboard. Thus all switches are 
down for both norma! FORTRAN and card mode APL. 


The necessary patch on the disk is: 
Change word /0047 of sector /02СА to /4C28 


(c) DELAY BEFORE SIGN ON 

On the standard APL 1130 system, before a sign on. the carriage returns, waits for 
about a second, and then spaces six before accepting the sign on. The wait of a 
second has been removed with the following patch on the disk. 

Change word /0036 of sector /02CA to /719C 


(d) CARD PUNCHES FOR 2. 1, V 

These three characters, we feel, are probably the three most common of those which 
require multi-punching or mnemonics. It seemed to us to be a good idea to try and 
put these on the keypunch board thus avoiding the use of mnemonics for them (multi- 
punching is too difficult to teach people who are just beginning computing), 


The following patches on the disk achieve this: 

On sector /0201: 

Change words /000F./0010. /0012. /001B and /0025 to /А010, /0060, /2120, /2820 
and A040 respectively. 

From word /0041 place ‘D022. /6920. /613E. /С500. /OE8D. F200, /1804. /4C98. 
fODOC, /6135. /С500. /OE8D. /F200, /1800, /4C98, /OD6C, /6133, /C500. jOE8D, 
‘F200. 21800, :4С98. /0D6C. 'COOB. “6580. ;0F13. /4C80, /0D6C. 

Change words /0015 and /0014 of sector 20200 to /4C18 and /OEF 1 respectively 


The results of these patches are us follows: 
i  Thecharacters 2 , 1, 7 сап be punched as 12-8-7 (upper case T on the IBM 
29 Card Punch), 0-8-5 (upper case W) and 8-7 tupper case C) respectively. 
й The РСН and )PCHS commands will no longer work (the patch from word /0041 
of sector 70201 overwrites most of the routine for punching). However. in the 
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rare event that someone wishes to punch. the disk can be re-patched quite simply. 
It is hoped to be able to overcome this difficulty eventually. 

iii The standard multi-punches for 2 , t, 9 will give character errors 

iv The mnemoniesfor 2 , í, ^ will still be accepted. 


FURTHER PROJECTS 

We have two further projects in mind at present: 

ta) [n order to make distribution of output to users simpler we will attempt 10 intro- 
duce a “paging” on the typewriter. (This project is under way at present). 

(b) [n order to speed up through-put we will attempt to implement two new system 
commands 
i PRINT which would be used to switch ouput to the 1132 printer when 

large quantities of alphanumeric output is required. 

iL. )TYPE to switch output buck to the console. 


We would welcome vomments and suggestions for further improvements from people 
working on a machine under similar conditions to ours. 


Mark Sense APL 
David А, Bonyun 
Computing Centre 
Acadia University 
Мо! ilte, Nova Scotia 


One of the major faults of the IBM 1130 API system is the requirement that a user 
either a) sits at the console and hunts and pecks over an unfamiliar and largely unmarked 
Key board: or b) keypunches cards using function names for many of the symbols. This 
inconvenience becomes acute if one tries to teach APL. Traditionally. those learning 
APL did so trom a terminal typewriter and did not have to learn alternative names or tic 
up a whole computer for long periods of time. 


Ihe problem is one to which many people have given some thought. The pages of Quote- 
Quad have held various ideas on the subject and various possible solutions. І offer here 
another, hopefully better. solution о Mark-Sense APL 


It has been fairly common for school systems and other like institutions to use Mark- 
Sense cards for training purposes. The obvious advantage is the lack of a required key- 
punch machine. Mark-Sense FORTRAN. Mark-Sense ICL are both used. as is Mark- 
Sense BASIC 


Basically. there are two kinds of mark-sensing available. The 360 takes a Mark-Sense 
reader for which the marks are made vertically on a card. The 514 Reproducing Punch 
van be equipped with mark-sensing and tor this equipment. a horizontal mark is used. 
Considering the fact that the problem exists for an 1130 to a much greater degree than 
Tor the 360, it is not surprising that we have chosen to build our system around the second 
type of mark-sensing equipment. 


вл 


5 size would have been 


CARD too small, See 


front cover. 


18 The card we used is illustrated above. Certain of the system commands are available 
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directly while the other may be spelled out. We believe that every symbol in the full APL 
alphabet is available on the card either as a primative or as a doublet. For example, ® 
may be obtained by marking both 7 and ~ : and 1 together with T gives the I-beam, 
I . The one typewriter feature which is not suitably accomodated in the Mark —Sense 
system is underscore. While provision is made for this symbol, the card does not permit 
it to be used in the same block as an alphabetic character. This problem is not considered 
serious. 


Unlike any other mark-sense applications of which Гат aware, certain of the symbols 
require that two bubbles be marked with both bubbles above the symbol. The idea of 
marking one bubble above and one bubble below is standard. but the idea of marking 

two above is not. For example. to obtain the alphabetic X one marks 9 and u 


It will be seen that every symbol in the APL alphabet consists either of 

a) a single marked bubble (one mark in one column out of three), 

b) a pair of adjacent bubbles in the same column (two adjacent marks in one column 
out of three). 

€) a pair of adjacent bubbles in the same row (same mark in each of two adjacent 
columns out of three), or 

d) a pair of non-adjacent bubbles in the same column (two marks іп one column out 
of three). 

Examples of the fours cases above are 

WI, ee T будь vn € еў, X. “оар 22 чу лт 


The option of a system command is triggered by *)` although. while this is necessary, it 
is not sufficient. Sign on (e.g. 731007) is also possible and ‘*)” followed by a written 
command is likewise acceptable. There is no ambiguity on the card between the systems 
commands and those other options. 


Continuation cards are permitted by using the place provided in the first block of three 
columns. Should data be required to satisfy C ог M , then marking all three 95 
(9,7.C0 NT N) in the first block cancels the further blocking in the card and changes it 

to strict Hollerith coding. This permits 24 columns of Hollerith data per card. Continuation 
of such data cards is not possible 


All the above remarks are employed in the program. written in FORTRAN. which produces 
an acceptable APL deck for the 1130 system. The punched mark-sense cards are treated as 
data to this program and it, in turn. produces an APL deck. This deck may be run on the 
1130 system directly. 


The techniques of this conversion program are sufficiently flexible to allow it to be changed 
easily to accommodate any card code system whatsoever. Each column of input and output 
is treated as a binary integer and table look-up is rapid and painless. Anyone wishing a copy 
of this program may have it by writing for it. 


We believe that this is, for our installation. the only way we could manage APL. Students 
may program away from the machine. may have their APL decks generated by entering 

the usual FORTRAN queue. and may subsequently guide their APL programs easily through 
the machine with a minimum of lost time. (It is useful here to note that the 1130 system 
returns control to the console typewriter whenever an error is encountered; it is helpful 

to have the student available immediately for quick corrections and an operator available 

to stop any needless time wasting.) With this sytem. teaching APL is possible and practical 
on minimally equipped 1130's. 
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APL/6500 at Michigan State University 


Lew Greenberg 

Michigan State University 
220 Computer Center 

East Lansing, Michigan 48823 


A preliminary version of APL/6500 has been implemented at Michigan State 

University under a research grant trom Control] Data Corporation. The implement- 
ation is designed to run in either batch or interactive mode under the Scope 3/Intercom 
Operating System. The only terminals presently supported in the interactive mode 

are model 33 Teletypes. 


The system uses approximately 40.000, words of core memory and van increase in 
size us required by the user. This implies no restriction on the size of the user's work 
space. 

Several extentions are planned or have already been implemented in APL. These include 
extending the domain of ай primitive operators to strings, the addition of 12 more 
header-types for function definition to allow function indexing and redetinition of any 
APL operator, the execute function (monadic e), and the addition of some file handling 
vapabilities to command mode. 


The APL/6500 mnemonics are given in Table 1 together with their current status. Any 
University interested in more information should contact Lew Greenberg. at the above address 
(Telephone number (517) 353-5003. 


APL/6500 MNEMONICS 


APL/360 APL/6500 MON* DYA* APL/360 APL/6500 MON DYA 


+ + C с ү @OR С 
- - с с ж @NAND С 
Х & с с № @NOR C 
+ ерү с с i QIND с с 
* * с с p @RHO с C 
* @LOG С C у А c c 
r @MAX с ў 9 GTRANS C N 
i GMIN C C L @DEC c 
| ӨВЕ5 с с т @ENC Ё 
Н T 6 N € @EPS N С 
? ? с С + @ТАКЕ C 
` @NOT С C + @DROP C 
0 GCIRC C с ; $ C 
< ёт с / / N С 
< @Е с с 
= GEQ С 9 @ROT c C 
# @NE C + @GRU с 
> @GE с + @GRD с 
> ест C А N 


June 11, 1971 - Vol. 2, No. 1 /239 


Other Symbols 


ы @QUAD ! " 

+ @GOTO ТА @TRACE 
gi - SA @STOP 
v @DEL 


* C means complete N means next release. 


Table 1 


problem section 


Problems for inclusion in this section should be sent to: 
Robert A. Smith 

1570} Bradford Dr. 

Laurel. Maryland 20810 


Nine APL Problems or There's a Shorter Solution 


Since APL executes in an interpretive mode, a general rule of thumb is that the fewer 
lines used. the faster a program will execute and for any particular line the fewer 
characters used. the faster that line will execute. There are exceptions to this rule, as 
evidenced by the many determinant routines that are about, but in general it holds 
true, 


To this end a number of problems have been devised to stimulate your thinking about 
this rule of thumb and thus cause you to get better acquainted with the operators in 
APL. The only ground rule is as follows: 


In all questions. it is implied that a result in the fewest characters is desired (an over- 
struck character such as ! counts as a single character although three keystrokes аге 
needed to produce it). If a vector of numeric constants is used within your solution 
te.g.1+1 1 197 the spaces between the vector elements must be counted. Тһе 
example just given would count as nine characters. For this type of problem, no named 
temporary storage is allowed. 


The present records for each problem are published elsewhere in this issue. The actual 
solutions will be published in a subsequent issue. 


1: Origin Problem: Produce а line of coding which, in either origin, yeilds a scalar 
whose value is equal to the value of the origin. Of course, ı 1 would do the trick 
if it were a scalar — but it is not. There is one known minimal solution. 


m 


Mesh Problem (K. E. Iverson): Given vectors А. B and P such that A and B аге 
either both numeric or both character and 


ze 0 
(рА) =+/-Р 
(oB)=+/P 
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Write ап АРІ. expression whose value, іп either origin. is the vector obtained by storing 
consecutive values left to right of A into the 0’s of P and B into the l's of P. For example: 


yields ТОЧ JONES 


There are two known minimal solutions. 
(cf. Algorithm 48, АРТ") , Vol. 11 No. 61. 


3: Scan Problem: As most everyone knows. +\ 1 does not yield a SYNTAX ERROR 
trom the APL/360 interpreter. Instead it produces a NONCE ERROR, meaning that 
at present, it is a syntax error, but there are plans afoot to make it good grammar. 

In this case, the backwards slash when preceded by any operator that can be used in 
reduction. will likely be a scan operation which. for a vector V. is defined as follows: 


If Ясем Ў then RCP ]e0/V[ (2210 7)/;2У] for IeioV. 


Given a numeric vector V.write APL expressions to compute the following: 


D sv 
ар зв 
3) ANE 
4) vx V 


Other scan operators can be simulated (e.g. - > 2 = = | |) but the above four 
appear to be the most useful. The first and second parts have only one known minimal 
solution, while the third part has six (one of which is the same as the solution to the 
second part!) and the fourth part has six solutions also. 


4: Max Row Indices Problem: Although the APL/360 User's manual (p. 3.44) says 
that & and apply to matrices and arrays of higher rank, this has not as yet been 
implemented (why not?). Had it been. ( 7&4)0 ; 1] would be a solution to the 
problem of finding for a numeric matrix M, the vector V of row indices that are the 
subscripts of the maximal elements in each column of M (i.e. (ГАМ) =1 18MD V; 1). 

For example if 


1 0 0 4 
Me 215 1 3 
Goe д 
then 
8200047 22204 


Find an implemented solution in terms of M only, that works in either origin. 


There is one known minimal solution with many minor variations. 
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5:  */ Dead Keys Problem: Assuming that the + and / keys are dead on your 
typewriter, simulate, in either origin.+/V for a given numeric vector V. There are 
two known minimal solutions. 


6: -/ Dead Keys Problem: Assuming that the - and / keys are dead on your 
typewriter. simulate, in either origin,-/7 for a given numeric vector V. There 
are two known minima! solutions. 


7: 21 Combinations Problem: (This problem is, undoubltedly, the toughest of 
the lot.) Produce a2! by 2 matrix whose rows consist of all possible pairs of 
distinct elements from 127. The origin 0 solution is two characters shorter than 
the origin ! solution. There is one known minimal solution for each origin where 
each solution has a number of variations obtained by simple rearrangements of 
independent operations. 


8: Last Element Problem: Given a numeric vector V, write ап APL expression that 
yields the last element of V (that's right. 1^7 isnot short enough). 


9: Word Pattern Problem: Given a character vector W, generate a dense numeric 
vector which is the word pattern of W. [n this context. dense means that if WP 
is the word pattern of W. then 1=1/(ıF /WP)eWP . For example, the word 
patternof 'STZ7ISTICS' is1 2 3 2 L 1 2 4 5 1. There are two 
known minimal solutions. 


No selection of problems is complete without a grading system. so score yourself one 
point for each problem on which you achieved the minimum number of characters. 
Then grade yourself as follows: 


8-9: Sure. 

6-7: At least it’s believable 

4-5: A little more believable 

2-3: Why this sudden burst of honesty? 

0-1: Your lot in life is to write 5" thick FORTRAN programs. 


RECORDS 

2 

10 

15 for all parts 

20 

3 

5 

24 in origin 0: 26 in origin ! 
3 

15 


Юю о о л Ф ма: - 


Anyone who breaks any of these records is urged to write to the author. 
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| thank Mr. Breed for his recent explanations of some APL features, and should like 
to reply briefly to some of his statements, elaborate on parts of my September letter, 
and ask a few more questions. 


On Operator Classes 


I understand the need for parenthesizing any anadic operator not appearing at the end 
of an expression or sub-expression. and 1 intended my examples to show this. (The 
anadic exit operator is recognizable because it ends a statement. not because it begins 
it.) Whether the “price” of using the three characters! ( « )' instead of! *1 * is “high” 
depends on the user's preferences. (І think the use of any number other than 2.718. . .. 
when designating e. is distracting.) Instead of barring other anadic operators, a more 
sensible conclusion would be to give them meanings which better repay the occasional 
extra parentheses. [ admit that my proposed new functions were not of great significance. 
1 do, however, expect the language to grow whenever a consensus is reached on the need 
for a new operator. and 1 ат arguing for the right for some new operators to be anadic. 
(Incidentally. the term "niladic" is not of pure Greek parentage. Does anyone know 
what the Greeks would have said. if not "anadic ?) 


Гат persuaded by Mr. Breed's arguments against extending the use of operator subscripts. 
Perhaps the hypergeometric function would be a mathematically "more satisfying" 
substitute for the present circle function. 


On Mixed Output 


While | admit the usefulness of a formatting sub-language, І still would like the elementary 
result-labeling process to behave more like all the other functions. 


On Tracing Immediate Execution 

I like the idea of relegating trace control to system commands. especially if commands 
are made program-executable 

Question: Why can’t the Tå- and SA - "vectors" be read? 

Request: 1 would also like to see two read-only values attached to each function. 25 
the date of last modification (not merely storage), and ИА .. the number of the user 
who made the modification tor a vector of user numbers?). 


On Trace-output Messages 


I must admit that trace output often does try one’s patience. І shall. then, designate 
my September proposals for the batch environment and make two other proposals 
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regarding interactive tracing. First. the function name need not be repeated incessantly, 
but only when it changes. Second. array reports could be limited to the first few values, 
with dimension information summarizing the rest. 


On Immediate vs. Delayed Execution 


Although my previous remarks on this subject were made under the heading of “Tracing”, 
my intent goes further. E would like to be able to view immediate execution as a form 

of stored-program development fand tracing), and evaluated input as a form of program- 
line insertion. 


Just as Mr. Breed’s Trace command would control optional printing after assignment, I 
propose an Execute command to control optional execution after entering a line. 
Designating a set of lines already entered to comprise a function with a given name could 
be done by another new command similar to Group or Save. Standard operation now 
makes immediate execution and named execution mutually exclusive. Allowing both 
options to be effective at the same time lets a programmer conveniently correct syntax 
and initializations in a program he is transcribing from hasty notes. without having to 
jump explicitly between operating modes. After entering a line anywhere in the program, 
a branch to it would be generated. In this mode, only a branch to 0 would cause a return 
{and close the definition); encoutering any other undefined line would cause a request 
for its entry. Another benefit would be that the casual calculator who discovers minor 
errors or useful patterns in his work may capture some of his previous effort for re-use 
(or at least re-run it for duplicates of his results). (A small step in this direction would 

be to permit entering and leaving execution mode in one line. just as one can now enter 
and leave definition mode in one line. System commands already provide one form of 
temporary escape.) 


Evaluated input is a means for allowing a programmer to delay the specification of a 
portion of his algorithm, either because ke doesn’t have the necessary information or 
because it seems more convenient to enter many different pieces of information later. 

In its present form, this delayed specification may be a single APL expression, except 
that branches, mixed output, and other valueless expressions are exchided, as is entry 

to definition mode. I feel that the built-in requirement for a value is unreasonable, since 
input could otherwise be used to insert complete Jines in a program, including function 
calls which produce no result. Permitting a branch to be effective here is no problem 

if the input process is treated as a program interruption. Actually, it is now treated more 
like a sub-program. Program interruptions could also be handled as calls to a “keyboard” 
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sub-program if one of two policies were adopted: either a program always resumes at the 
point of interruption (which could be temporarily replaced by a branch) or all programs 
may branch to arbitrary points in their calling programs (designated, perhaps. by negative 
line numbers). 


Arthur L. Anger 
Weliesley College 
Wellesley. Mass. 02181 
25 January 1971 
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Number 51 Sin for 1130 


Victor Azgapetian, 

Division Assistant Information Sciences, 
Advance Information Systems. 

McDonnell Douglas Astronautics Company, 
5301 Bolsa Avenue, 

Huntington Beach, CA 92647 


The sine algorithms published have been both excellent and compact. But, especially 
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if you work with 1130 APL, it is highly desirable to avoid using local variables, or 
writing the function so that vectors must be stored more than once. Stnadard sine 
routines for the 1130 APL fill a workspace with vectors fewer than 100 elements long. 
May [ suggest the following. whose sole appreciable errors are those of round-off and 
whose timing is shorter and memory use is minimized. 

У Ү- 515 Т 
[1] YeuxTtüeTxTeTiYc1-TxXxT«0.08333124Tx7x0.00139267 

%3.30893Е” 5хтхте(90-[189-36017:90):57. 2858 


У 


We have found it expedient to write out the cosine routine rather than using the sine 

routine for the complementa gle. This function is exactly the same as that above 
except that it substitutes (180— T) for (T490) near the righthand end of the function. 

Both routines are in degrees (although the shift to radians is obvious) and both work 

for all angles. 


Number 52 Sumscan 


Robert Goodell Brown 
Horizon Towers South, Apt. 1602. 
Fort Lee. New Jersey. 07024 


Partsum is an elegant version of the Sumscan operator which works equally well on 
vectors and the second dimension of matrices 


VPARTSUMUD TV 
У S*PARTSUM Х;8;0 
[1] — Sete. х0<(1Е)ә. Re (oX) ГроХ1 
У 


PARTSUM 5?100 
14 90 136 190 212 
V+5?100 
V 
5 68 94 39 52 
PARTSUM V 
5 73 167 206 258 


M+2 3p6?100 
M 


17 96 93 

46 32 95 
PARTSUM M 

17 113 206 

86 78 173 
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Number 53 Random Sample from a Normal Distribution 
Robert Goodell Brown 


RANDSAMP n generates n random samples from the normal distribution (0,1) exactly. 
The trick is to use a bivariate normal! distribution, which can be integrated in closed 
form. The first random vector selects an annulus according to the desired probability, 
und the second a random angle to project the annulus back onto the x-axis. 


V X«RANDSAMP N 
T1] Х<(100.901х?Л2Г02000)х( 2xx0.001x?/p1000)*.5 
7 


RANDSAMP 5 E 
0.5870211353  70.6746589563 71.127288137 ~0.4463273764 1.164290213 
100+25xRANDSAMP 5 
74.83309328 100.7450928 143.246005 124.6848982 113.9386517 
[100 +25xRANDSAMP 5 
112 79 105 87 85 


DLR is a simple formatting operator which Ї use to report results from a simulation 
that are dollars. 


VDLRUO)V 
У Z«DLR X 
[1] Z<!'S',BKSP,'/',2 DPT X 
У 


DLR O10 
£ 31.52 

DLR 01000 
$ 3141.59 


ROUND is useful in printing results 10 a specified number of significant digits. 


VROUNDLN]V 
V Yel ROUND ХД; 
[1] Y<*(Y>1F 10)xY<Zx[X+¿+*1O0*(-N)+[1°@|X 
V 


3 ROUND 0100 
315 

5 ROUND 010 
31.516 
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Number 54 Determinant 


Edward Schrieber, 
Colorado Computing Corporation. 
Box 38, Boulder. Colorado 80302 


DET is 4 times as fast on a 10 x 10 matrix as algorithm 42. 


V B+DET A;N3K 
(12 »(158«(рА) р,Ве1оА1/70 
121 *(0sBe-1p0A€(K-714C IAE 1; 2911 /14E 15 12004) /0 
(31 ВеВх(2ЕТ(А-АГ;11».хА4(1; Ja BC Ro Ke1eiN-1])x CC 148-1) «X 
[s] +0 
t5] "RECURSIVE TO NTH LEVEL; PIVOTS." 


Number 55 Roman Numerals and Zeller’s Congruence 


John F. Lauer, 
Colorado Computing Corporation, 
Box 38, Boulder, Colorado 80302 


VROMANCOJY 
У R+ROMAN N 
(11 8«С,((708 2)тИ)ө,2318)/,88 7o'MDCLXVI' 
[2] +0 
[3] 'NON-SUBTRACTIVE NUMERALS’ 
v 
КОМАН? 5000 
1095 
MLXXXXV 
ROMAND+? 5000 
236 
CCXXXVI 
ROMANT? 5000 
3395 
MMMCCCLXXXXV 
ROMANO+? 5000 
3397 
MMMCCCLXXXXVII 
)CARD END 
VDAYOFUO 
V D DAYOF MiY 
[1] >((0 1211752 9)>0 1210M)/ERR 
t2] ү+1001(У+1 0+60 1277340 12194)[2] 


[3] Үе147104Ү4(170,242,6хМ111)4(1 Үгн)-Г11,75к1М121:100 
[5] (7 3p'SUNMONTUEVEDTHUFRISAT')UY;] 

[5] зо 

[6] "ZELLER''S CONGRUENCE! 

ERRi'THIS МО YRSADOPTION OF GREGORIAN CALENDAR! 
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1 DAYOF 3 2000 


WED 

29 рАҮОР 2 2000 
TUR 

28 DAYOF 2 2000 
MON 

11 DAYOF 11 1591 
MON 

1 DAYOF 3 1972 
WED 

29 DAYOP 2 1972 
TUE 

28 DAYOP 2 1972 
YOR 

13 DAYOF 3 1971 
SAT 

1 DAYOF 2 1971 
MON 

1 DAYOF 1 1969 
WED 

23 ПАҮОР 8 1363 
FRI 

28 DAYOF 7 1923 
SUN 

1 DAYOF 3 1900 
THU 

28 DAYOF 2 190C 
WED 


15 DAYOP 9 1752 
THIS MO YRSsADOPTIOPD OF GREGORIAN CALENDAR 
)CAR2 END 


Number 56 More Elegant 1130 Trigonometric Functions 
John E. Lauer, 
For vectors and Scalars 


VSINUDJIV 
У R-SIN X 
(11 Re(xPI-(2xPI)|] X)x(CPI|X)o. *R8)- үг її. 142x110 
v 
A<(PI:u)x 99117 
SIN А 
0 0.707107 1 0.707106 0 0.707107 71 70.707106 0 0.707107 1 
0,707106 0 0.707107 71 70.707108 
0 
ҮС0511119 
У R-COS X 
111 Re(xPI-(2xPI)| X0, 5xPI)x(CPI|X*0.5xPI)o.*R)-. t 1IRe 152x110 


121 »0 


t3] ‘INTERCHANGE [i] ^ [u] IF YOU WISH' 
[u] R+SIN Х+0,5хРГ 
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COS A 
1 0.707106 0 0.707107 71 70,707106 0 0.707107 1 0.707108 0 
70.707107 71 70.707108 0 0.707106 


1 
УТАУ 9 
V R<TAN X 

C1) 8“((1/10)х8ххХ)%(-Я)хХ%(8еі-|(Х«51М X))+SIN X+0.5xPI 


TAN A 
O 1 1.70141Е38 0.999999 0 1 71,70141Е38 70.999999 0 0.999999 
1.70141E38 70.999999 0 0.999999 
71,70141Е38 71 0 
SATANLGIV 
V RATAN X;G 
[1] Re(CXX)x0,25xPIx1-G)tGxUXe(xX)x(| X) Gext1-|] Х) о. *R)-, 889 142x130 
[2] +0 
t3] РОН 130, ‚085 ,05 ,01>(1-|X)>0, ACCURACY IS 4 3 2 DECIMALS! 
v 
A< 1.0092 71 0.38725 2 0.98926 1 1.0052 
ATAN A 
70.798785 70.785398 0.775642 0 0.775642 0.785398 0,794785 
.75хРІ 
0.785398 
)CARD END 


Due to lack of space. many algorithms have had to be held back for the next issue. 


calendar of events 


9 10 September. 1971 - Paris - APL CONFERNECE organized by the Institut de 
Recherche 4” Informatique et d` Automatique in collaboration with Toulouse Ш 
University and Laval University — Information from 


Program Committee and Conference Secretariat. 
IRIA 

Public Relations Department 

Domaine de Voluceau 

В.Р. 5-78 LE CHESNAY . France. 
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PpPLications at SHARE XVII 


Users of IBM systems which qualify for SHARE membership and which are or would like to 
be members of the SHARE APL Project should note the activity scheduled for SHARE 
XXXVII during the week of August 9-13, 1971, at the Waldorf-Astoria in New York City. 


As the header above suggests the emphasis will be toward application areas for APL 
which are beginning to be discovered by other SHARE Projects. Of course we will have 
scheduled working committee meetings on Monday and Tuesday starting at 10:30 each day. 
lie may not need all the time that has been requested but we have seven resolutions 
which were passed at the last SHARE meeting plus whatever areas of discussion the mem- 
bers want to bring out. Prepared, well thought out proposals would be appreciated al- 
though good proposals produced during the course of the meetings will also be accept- 
able. 


On Wednesday afternoon (1:30) in cooperation with the Management Science Project Susan 
Hahn of IBM will give a presentation on MINIPERT, the APL-based conversational manage- 
ment tool that IBM is selling as a Program Product. This should be of interest to 
APLers who would like further information on MINIPERT either because they want to use 
it or because they want to write their own. I hope that it helps to convince others 
that APL has some utility. 


Also on Wednesday afternoon (3:30) Mike Jenkins of Queen's University, Kingston, 
Ontario, will talk on: "Domino: An APL Primitive Function for Matrix Inversion -- 
Its Implementation and Application." Mike's original report out of IBM's New York 
Scientific Center has been previously referenced in the bibliography section of the 
Quote-Quad. Here is your chance to find out all about Quad-Divide. 


On Thursday morning (10:30), I've asked Roger Moore, of I. P. Sharp Associates, 
Toronto, to talk on: “Formatting in APL with AFMT -- Is RPG really necessary?" 


The above times were those requested, and it is not known if in fact the meetings will 
be scheduled as requested. I expect that they will be but check the formal prelimi- 
nary (or final) adenda which your SHARE representative should have. While you are 
doing that, you might make note of a talk to be sponsored by the Simulation Project at 
which someone from Xerox of Canada will talk on the use of APL for corporate simula- 
tion. 


Finally, anyone interested in taking over the APL Project in SHARE should contact me. 


Garth H. Foster 
Manager, APL Project 
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WHITHER APL? 


This issue has been delayed by an unfortunate overlapping of vacations and illness at 
Lakehead University, diverting the fine editorial effort produced there, and by my 
vacation. We have also been slow in production because of expending some concern as 
to continuing this publication and the APL community's activity. 


"Where do we go from here?" 


The Goddard Conference formed a Founders Committee to look into the situation and for- 
mulate some proposals to get thing moving. The emphasis of the Goddard Conference 
discussions seemed to point to an organization independent of any and all professional 
structures currently existing. The discussions at Berkeley appear to put us on a 
different tack. 


The Founders Committee felt that a minimal structure to provide a channel for informa- 
tion exchange (it seems to be growing into a complete CPU), getting the Quote-Quad out,| 
and holding technical meeting when appropriate would suffice. 


Thus by use of the form on the back cover you are being asked to approve a slate of 
officers forming an interim organization to continue steering our efforts. 


The proposed slate of officers and their affiliations are: 


President: Garth Foster - Syracuse University 
Vice-President: E. M. (Ted) Edwards - C.D.C. 
Secretary-Treasurer: Karl Korn - APL General 
Editor-in-Chief: Alan McEwan - Lakehead U. 


Board of Directors 


Robert Merrell - Burroughs 

Harwood Kolsky - IBM 

John Clark - Coast Community College District 
Ned Dairike - Livermore Radiation Lab. 


If you want to write in names for one or more positions, cross out the appropriate 
name(s) and add your own selections. Send your approvals by no later than August 15, 
1971 to: 


D. W. A. Watson 

Computing Centre 

Lakehead University 

Thunder Bay, Ontario, CANADA 


33. 
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One of the possibilities which is to be considered in further detail by this interim 
organization is whether affiliation with an established professional society is possi- 
ble. Prior to the time of the Spring Joint Computer Conference, I receiveda call 
from Walter Carlson, President of ACM. The growth and interests of the APL community 
were discussed and he indicated that those topics would come up for discussion at one 
of the ACM executive meetings in Atlantic City. 


Recently, I received a call from Jean Samet, Chairman of ACM's Special Interest Group 
on Programming LANguages (SIGPLAN) and I was personally encouraged by the conversa- 
tion. 


The concept of a Sub-Special Interest Group is being explored. The proposal would be 
to establish a center of interest revolving around a single programming language with- 
in SIGPLAN. АТТ problems have not veen resolved at this point іп time but it is hoped 
that in the near future ACM may provide a structure wherein a person may join that 
Sub-Special Interest Group without joining either ACM or SIGPLAN providing his major 
professional interest is elsewhere. 


As this or other matters affecting the future of APLers come up, we will keep you in- 
formed and your opinions will be appreciated. 


WHITHER THE QUOTE-QUAD? 


The Quote-Quad is back and first of all we are extending all subscriptions by one 
issue. Thus, those of you who responded to the initial offer last fall with issue 2-2 
will not be receiving 3-2 unles we hear from you. 


Frankly our costs have gone up. Postage is higher, production costs are higher and we 
now incur outlays for composing each issue. 


This year we plan four issues for the $3.00 ($6.00 Foreign) and mailings will be by 
first class in the U.S., Canada, and Mexico and Air Mail elsewhere. The issues will 
be larger and we may be able to go back to 5 or 6 issues if the number of people 
receiving the Quote-Quad can be increased. For the present we shall adopt a wait and 
see attitude and solicit your support. Good substantive articles are requested as we 
would like to move the publication up even further in quality. 


- Garth Foster 


54. 
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changes shown. 


President: Garth Foster 
Vice-President: Ted Edwards 
Secretary-Treasurer: Karl Korn 


Editor-in-Chief: Alan McEwan 
Directors (4) 


Robert Merrell John Clark 


Harwood Kolsky Ned Dairike 
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editorial 


In the last issue readers of Quote-Quad were asked to forward to me their 
votes in approving - or changing - the slate of officers proposed by the 
Founders Committee. Votes received were unanimously in favour of accepting 
the slate of officers. Your new APL Users Committee therefore consists of: 


PRESIDENT: Garth Foster - Syracuse University 
VICE PRESIDENT: E. M. (Ted) Edwards - C. D. C. 
SECRETARY. TREASURER: Karl Korn - APL General 
EDITOR-IN-CHIEF: Alan McEwan - Lakehead University 
BOARD OF DIRECTORS: Robert Merrell - Burroughs 


Harwood Kolsky - IBM 
John Clark - Coast Community College District 
Ned Dairike - Livermore Radiation Lab. 


Don Watson 


Quite a few algorithms were held back from the last issue to prevent it 
becoming too large. However, material for the Articles section appears to 
have increased rather than decreased. The algorithms can be held back no 
longer - so this issue is a large one. It would be appreciated if contributors 
to the algorithms section would send a good copy. preferably using a carbon 
ribbon or аі least a new ribbon. and keep all material to WIDTH 67. 


The deadline date for material for the next issue of Quote-Quad is Monday. 
November 1518. 


The answers to the problems presented in the last issue are enclosed. Readers 
should forward problems as soon as possible to: 


Robert A. Smith 

15701 Bradford Drive 
LAUREL. Maryland 20810 
О. 5. А. 
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The bibliography section refers to a paper comparing the DREV APL system 
for the XDS sigma 7 to the IBM APL/360 specified by the “APL Reference 
Manual". Although this paper lists the differences. the implementation has 
made APL from the user’s point of view very similar to APL/360. It in- 
cludes an execute function which does not execute system commands. 


The Scientific Time-Sharing Corporation, 2135 Wisconsin Avenue. ММ. Washington, 
D.C. 2007. U.S.A.. is now offering the IBM application program MINIPERT for 
critical path analysis. They have also produced a card similar to the IBM refer- 
ence data card including information on the APL pius enhancements to APL. 
CEGOS Informatique. 107 Bureaux de la Colline, 92 Saint-Cloud. Puteaux, 

France. have produced an APL reference data card in French 


Philip Abrams at CEGOS Informatique has a few copies of a collection of earlier issues 
of Quote-Quad. 


Orange Coast College. Costa Mesa, California have been finding the Nova 5-50 
terminal with tape deck very useful for: 


|. Recording information off-line to be read into a workspace later. 
А 


Recording output to be printed otf-line. 
3. Recording values of variables and listings of functions which сап be read 
in from tape later. 
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REPORT ОМ SHARE CONFERENCE АРІ. PROJECT 


Dr. Foster (SU) presided and Mr. Higgins (МУП was the recording secretary. 


Preliminary announcements indicating that (1) a form will be distributed to members of the Project 
requesting a commitment from their installation to provide active membership and to contribute to 
activities of the Project. They will be asked to indicate their preference for activities and to make 
positive suggestions relating to meaningful projects, and (2) a paper will be delivered in September in 
Paris regarding the formal description of the APL/360 language. 


Mr. Joseph Perry (IBM). Project representative, read his letter to Dr. Foster which was a response to 
the seven resolutions passed by the SHARE APL Project. All seven resolutions were accepted by IBM. 
Briefly. the res: lutions dealt with 


(1) line control of но. 

(2) blocking incoming messages. 
(3) implementing the dollar sign. 
(4) a shared file system. 

(5) facility to perform high-speed. large volume i/o, 
(6) implementing the execute or unquote function, 
(7) implementing the scan function. 


‚ аз а legal APL character, 


Mr. Perry made other announcements 
(A) An APL/360 Systems Manual is now available from Mechanicsburg. It can be ordered from 
one’s marketing representative. 
(B) Dr. Iverson has published “Elementary Algebra”; it is available as a technical report from the 
Philadelphia Scientific Center. Technical Report Number 320-3001. 
(C) The user's Manual for APL/360 has been restored to а “GH” prefix from an "SH" prefix with 
a corresponding restoration of the old price. The complete number is GH20-0906. 


(D) There is an audio education package available (as of August 16, 1971) from IBM. 

It consists of three (3) volumes. It is comprised of tape cassettes and accompanying 
manuals. To order individually the number are as follows: 
а» SR-20 9382 
(2) SR-20 9383 
(3) SR-20 9384 

To order the three-volume package, one orders SBOF-2012 the “course” assumes that 

an APL Terminal is available to the user. and one should have a grasp of elementary 

algebra as well as some basic typing facility. 


It can be ascertained that. in view of the acceptance of the APL Project’s seven 
resolutions, that serious attempts at implementation are planned or underway, rather 
than just the recognition of need and desirability. 


Considerable discussion ensued concerning what character might be used for the dollar 
sign (Š) and what effect this would have on users (e.g., cost of new typing elements, 
the introduction of a new keyboard symbol. ete.}. No apparent decision has yet been 
reached by IBM. 


Further discussion involved the concept of what effects product development and 
implementations by IBM. Mr. Perry and Dr. Lyne (IBM, Palo Alto) indicated that IBM 
survey all the literature and that all input can influence these decisions and that the 
SHARE APL Project is a significant source. Project members voiced the opinion that 
other vendors are turning out changes and extensions: this is good in some respects, 
but bad from the point of view of the “APL purist.” 


3. 


October 1, 1971 - Vol. Ill, No. 2&3 /261 


Mr. Rose (STD) offered to assist users to implement the dollar sign (S) is they so 
requested. 


The point was made. amid a long discussion. that there are many stages between an 
“accepted” resolution and an announcement. Can [BM give a status report on activity 
relating to accepted resolutions? This would appear to be incongruent with historical 
precedent and established policy. 


Some discussion ensued concerning worthwhile activities for Project members. Among 

those mentioned were: 

a) An Ad Hoc Committee on Technical Aspects: 

b) A committee on program distribution: 

©) А committee to consider influencing directions in "standards" involving development 
of topics such as library structure. formatting. ete. 

The question was posed 1o IBM concerning the delivery time approximation for a general 

file system. Some members had hoped that IBM would eliminate a great deal of unnecessary 

work by APL installations and would not be construed to be a formal announcement. IBM. 

by policy. could not respond to this query. Continuing discussion of what is felt to he the 

imminent announcement concerned probable use reaction to probable cost, should it be 

priced separately trom the system, would this cause a higher rate than if it came as a package 

with the system etc. 


The MINI-PERT application package was discussed. ІВМ personnel asked what other 
application packages might be desired by users. A mathematical symbolic manipulation 
package was suggested. The point was made that most application packages would he 
impotent without the delivery of a file system: if was unanimously agreed that the latter 
is a distinct priority item. 


In view ot the lack of communication concerning an IBM file system. after lengthy discussion 

it was agreed that input from the Project's members concerning its structure should be trans- 
mitted to IBM und that in no way could the transmission of this input have negative ramifivations 
The motion was made and unanimously passed that a sub-committee be formed of interested and 
knowledgable members to prepare general specifications for what they would like to see in a file 
system, Five members volunteered and four other names were mentioned as prospective members 
of this sub-committee. 


The question was posed concerning member installation s experience with F. E. support of APL. 
The general reaction was that it was poor. with a couple of exceptions. [BM made the point that 
it is an installation’s responsibility to provide the necessary pressure on the local branch office to 
insure that the proper response to problem is received. АРАВ х should be sent on problems which 
are real and have not appeared in RETAIN 


In response to a user's question it was verified that the only way to compress APL library packs is 

to use the dump-restore procedure. The point was made that including additional facilities in APL 
for compression would cause an increase in the core-resident size of APL. and most installations would 
preter to avoid this 


IBM requested feedback on user response to the readability and effectiveness ot the new APL’360 
Systems Manual. Only two users have seen it. Consequently the response was minimal. Those who 
have seen it reported that it is better than what we've had in the past but it is not what it should be. 
ІВМ indicated that it is quite different than the normal PLM (Program Logic Manual). 


Mr. Everett Allen (EBM, Palo Alto) discussed the procedures for investigating an APL problem. On 
receipt of the problem. the local F. E. should consult the RETAIN system to ascertain whether the 


4. 
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problem has been previously reported and whether or not a fix has been found. If not, a formal 
APAR should be submitted to Palo Alto: this APAR will acknowledged to the F. E. by a receipt. 
Ail this occurs on a teleprocessing system. The F. E. and San Jose get telegrams. Once a fix has 
been found, it goes into the teleprocessing system and the F. E. gets а telegram. 


Mr. Henry Lyne (IBM, Palo Alto) indicated that APL is fully supported by IBM. Every APAR will 
be handled as swiftly as possible. They will continue to hone the system, incorportating all fixes. 
A new release will be announced when it is deemed reasonable by the Development and Marketing 
groups. IBM wants all the fixes put on APL by the focal F. E.’s not selectively as in other systems. 
Only about fifty (50) APARS have been received by IBM at this time 


A general discussion ensued in which the Project members indicated that they would like to be 
made aware of all fixes that occur on the system. If there is any problem with APL found, all 
users should be notified. IBM indicated that all PTF’s are transmitted to users, but this is only 

a subset of the fixes. This is a general IBM policy and does not pertain only to APL. The desires 
of this Project then relate to a general policy change in IBM and hence should be transmitted by 
the general SHARE body. Garth Foster (SU) indicated that he would refer this problem to the 
Program Products Division here within SHARE. 


IBM could not give a definitive response to the query concerning the number of United States 
installations which run APL on a regular basis, The figure was approximated at between one 
and two hundred. Some of these are still running the DOS TYPE 11 program. 


Garth Foster (SU) indicated that a doctoral student at Syracuse U.. Jim Borwn. will publish his 
thesis entitled "A Generalization of APL," It will be in the public domain in the Fall. Anyone 
who wishes a copy should contact Garth. 


The mecting adjourned with a summary discussion of the fact that more technical communications 


must occur between IBM and this Project. 


Mr. Adin Falkoff (IBM, Philadeiphia Scientific Center) spoke on “A Survey of four experimental 
APL file I/O Systems in IBM” 


Mr. Falkoff indicated an interesting statistic. there are about 7000 APL users in IBM domestic at 
this time. 


There has been a long-standing, continual discussion of an APL file system and high-speed 1/O 

Mr. Falkoff considers these to be natural evolutionary steps in the development of the APL system. 
The first work done in this respect. to his knowledge, was done by Dick Lathwell in 1968. He was 
working on a special project -- Dick Lathwell in 1968. He was working on a special project — an 
experimental on-line dispatching system at Yorkstown Heights. When the experiment was over. 
the system was dismantled. 


What follows is a synopsis of Mr. Falkoff’s description of the four IBM experimental systems. 


Two major problems in developing APL file 1/0 systems have been identified: 


Communication — Between APL and the last system, with arbitrary i/o equipment. and 
with foreign systems via common data: 
Workspace extension — many of the qualities of the workspace are desirable to retain 
(e.g. grouping, state, naming. сіс.) It is. however, desirable to remove the size limitation. 
This problem is not solved. Appending a file system of some sort appears to be the only 
way. The CP/CMS version with the virtual machine concept gives a large workspace, but 
the size is still fixed. 

The discussion of the form experimental systems addresses the communication aspect of the problem. 


5: 
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The four systems are: 
|. 05/300 (Elmer Sharp ІВМ Poughkeepsie Devel. Lab) 
2. Coursewriter (Steve Dunwell -- Poughkeepsie. IBM) 
3. CP/CMS (Michael Crich Cambridge Scientific Center) 
4. Shared Variables (Lathwell & Morrow - Philadelphia Scientific Center) 

Whether or not to establish primitives in APL to perform reads and writes is an open question. There 

are some basis requirements for communication in any system: 

Establishing a connection 

Funcitons for data movement 

Transformation of representations 


a. numbers <> characters 

b. EBCDIC —Z code 

с. header changes 
А. 05/360 based facility in Poughkeepsie 

l. Connection by explicit actions. There is a set of interdependent functions: 

HOOKUP OPEN CLOSE QUIT (APL defined fns.) 
The O and 1 l-beam, functions are used to read and write (only in 2 buffer). The above APL 
functions utilize these l-heams and others. 


2. Three read-write pairs are used: 


a. sequential files and ijo equipment 

b. random access to APL data 

c. random access to unstructured data 
In this sytem the user messages are OS error messages. OS files have to be “readied” by standard 
OS JCL. 


B. Coursewriter - based facility. Poughkeepsie 


This is perhaps the simplest of the four systems to use, but again is dependent on the host system, 
COURSEWRITER. The tiles are fixed length records which are vectors. 

l. Connection is always present. One needs the security number on the file. 121 and 122 
are used for read and write. 
Two read-write sets ot I-beam functions 


о 


random areas files 
tape and printers (sequential) — privileged 
3. No special provision for conversion 
character codes by defined functions 
headers changed hy file write-read 
Error reports are standard APL. error reports. The files are unstructured data. 


C. СР/СМ5 based facility, Cambridge 
This sytem is strongly based on CMS. АН tiles are available: all CP commands are available 
by exiting to CP mode. 
1 Connection is automatic and 
4. opened by reference 
b. closed by commands 
Read-write functions use CMS file commands 
Conversions by defined functions and CMS 
character codes: ZOF EOF (Z-code to EBCDIC and vice-versa) 
header changes: OF 
Characters to numbers: EX (e.g., reading FORTRAN . produced data. EX is then a 


-ə 


264/ APL QUOTE-QUAD 


type of “execute” or “unquote” command). For instance, 101 І TRANS А BC isa 
type of transformation command. 


D. Shared - Variable Facility, Philadelphia 
This system uses the concept of sharing processors. These processors can be two on-line APL user’s 
workspaces, or an APL user interacting with a background processor. Variables are shared. This 
system does not use l-beam functions. 


An example given of a shared file is a 700 record file (each up to 1/2 the size of a workspace). It is 
a vector of arrays -- each accessed by a single index. 
1. Connection by explicit functions: 
SS SIM SR SQ 
SS - adyadie function that intiates the eligible pairwise sharings. The left agrument gives 
the number of the shared processor and the right agrument indicates the shared variable. So. 
a pair must execute SS before the sharing can occur. (one member of that pair could be a readied 
background processor). 


SIM - sets up interlocks 

SR - а retraction function (i.e.. to negate an executed SS function) Note that an SS does not 
survive a) LOAD” 

SQ - an inquiry function (i.e... who is offering what) 


To share files, one needs a supervisory program. 
2. No. special read-write functions 
- read by naming for use 
- write by assignment 
3. Only number — character conversions 
characters to numbers — uses the primitive @ 
(like “execute ircles. BS. base value) 
numbers to characters -- uses the primitve Ф 
(like DFT. EFT - circle. BS. representation) 
Ф circle, BS. base value, the execute function, in a type of "unquote": it will not execute 
system commands as the СР/СМ5 version will. 


Ihe various experimental systems are being instituted to perform general data processing applications. 
Little is known about the economy of any of the four systems. All can do reasonable work without 
unreasonable penalty. In the first three cases it is necessary to be familiar with the host system. 
Different strategies have been employed in the four systems: each is quite different. 


Mr. Falkoff expressed his acknowledgement to the gentlemen at each of the locations for their 
assistance in the preparation of the paper, with particular reference to Alex Morrow in Philadelphia. 


This paper will be presented at the APL conference in Paris and will also be a report from the 
Philadelphia Scientific Center. Two other reports will be issued from there in the near future: 
Lathwell, on a formal description of APL: and Berry et al, on the use of APL in education. А new 
report. ELEMENTARY ALGEBRA by K. E. Iverson is now available from the Philadelphia Scientific 


Center, report number 320-3001 


These two sessions preceeded and followed the talk by Adin Falkoff (IBM, Philadelphia 
Science Center) which has been reported earlier, and these are grouped together for 
continuity and convenience in reporting. 


The forms to register project interest areas and commitment were distributed and they are 
to be returned to the Project secretary, Jim Higgins (NYI) who will mail copies of the minutes 
to session attendees as soon as possible. 
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The Project Chairman. Garth Foster (SU) reminded the audience that his agreed tenure expires 
after SHARE XXXVIII and anyone interested in chairing the project should contact him. 


It was reported that efforts are continuing in the APL community outside SHARE. The APL 
Quote-Quad is alive and well, with about 400 people receiving it. 


The E130 version of APL which has been announced by IBM will be compatible with APL for 
the System 360 (except Гог precision! Due to workspace differences direct restoration of 
workspaces from one system to the other will not be possible except at the source code level. 


More specifically. during the morning session one resolution was passed and a number of topics 
were discussed. Those present were asked how they would feel if they were required. at the 

time of function definition. to denote whether an object names a function or a variable. One 

way of doing this, for example. would be to require that the first character of a variable is not. 

The reason behind the question is that Jim Ryan (Burroughs Corp.) feels that such a differentiation 
would allow the development of an APL compiler. Feelings of the audience were mixed. It was 
felt that the ability to do top-down programming was important and the ability to substitute a 
variable Гога yet undefined function was valuable. The necessity of mounting an attack on the 
compute bound problem 


The following resolution was passed afler some discussion on the desirability of getting a better 
handle on the environment which is now expressed in the workspace in the form of ORIGIN, 
FUZZ. DIGITS, WIDTH, and the SEED. 

71-08 


Resolved 


The ORIGIN should be able to be set upon entry to a function in such a way that upon all normal 
exits from the function return the ORIGIN to the state prior to the invocation of the function 
without further required action. 


This resolution will be formally transmitted to IBM. 


The need for a graphic Гог BACK SPACE for currently available CRT terminals was pointed out 

by Larry Moore (КҮР). 

In the afternoon session following Mr. Falkoff’s talk two resolutions were offered: One was tabled 

due to an insufficient percentage of attendees who voted. H was 

Resolved: That IBM develop and market the sofware and trimware for a micro-coded APL system. 

Another resolution failed. И was 

Resolved: That IBM provide an ATS-like capability within APL. 

Two resolutions were passed and will be transmitted to IBM. 

71-09 Resolved: That IBM market a standard APL print trqin capable of printing APL. 
graphics on modern printers, 

70-10 Resolved: That IBM market а CRT device supporting APL characters and supporting 
the APL program products. 


An IBM Watson Research Center SHARE member brought up several suggestions for improvement 
of APL. They were ull discussed informally with various degrees of response. 


l. А facility to delete an element from a group without renaming it. (general agreement) 
2. The ERASE command should respond with message such as the error message 
“ITEM NOT FOUND” (general agreement} 
3. А debug option that displays variable names when its value changes (mixed reaction) 
4 Privileged users should be able to LOAD locked workspaces without knowing the lock. 
{general disagreement) 
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“Real whole numbers” shouid have decimal points in output to distinguish them from 

integers. (not a mathematical difference. but an internal representation difference. 
General feeling that this information can be solicited with current capability). 

6. АРІ utilities should be usable while the APL system is in operation (no disagreement) 

7. Сору command to specify more than one item. (general agreement) 

8. P copy to return an error message when appropriate. (general agreement). 


THIRD SEAS APL WORKING COMMITTEE'S MEETING 
NOGORDUYK JUNE 8 and 9, 1971 


A presentation was given by Mr. Heriter of the [BM European System Research Institute. 
Mr. Heriter described the work of the institute which offers about 60 courses in System 
Design and Analysis, System Architechture and System Disciplines. After a year of use, 
APL is really well integrated into the educational system and is used in courses on Pro- 
bability and Statistics, Queuing Theory. Linear Programming, Simulation, Computer 
Organization. Programming Languages (A program used for Syntax Analysis), and Pro- 
ject Management. 


The institute also uses ATS as a cheap remote job entry package. Mr Heriter mentioned 
an interesting solution to the problem of allocating ports to ATS and APL in an optional 
way depending on demand. Several different versions of the APL system are used with a 
different number of ports in the configuation module. The following function running 
from a priviledged terminal analyses the number of active ports giving information on 
which version to use: 


ў RECORD 1С 
21 АРГ+10 
[2] ATS+10 
[3]  B:DELAY TC 
[4] APL+APL,pON_ 
[5]  ATS«-ATS,UTD 2*DISPLAY Ç 
[61 -B 


A period of about 2 minutes is used for ТС the period between observations. C is the 
address outside the APL region in the ATS module showing the number of active ATS 
users. A plugable matrix l'or connections between the 2702 control unit and the 2741 
terminals is also used. 

Мг. Gjerlov demonstrated some tricks and programs including: 


1) Sum preserving rounding. 


У 2+Х ROUND Y 
[1] caxxSeX-8/Z-lQeYxXie/Y 
125 2151-«2154541110141 

1) 


October 1, 1971 - Vol. 111, Мо. 2&3 /267 


2) Distribution free statistics. Solution to the ranking problem: 


REXAMPLE: @12 8 7 12 12 7 
a RANK: 5 3 42:5 5.8 1.5 


V ReRANK А; АВ 
[1]  Re(AR*.xhMA) t*/ AR-Ao. =A 
v 


3) Locking of keyboard to be able to receive messages all day by sending a message to 
a non-existent port number сап. unlocks keyboard): 


)MSG 30 I 4M WAITING 
AAB:RI АМ WAITING 


)MSG 30 I AM WAITING 
008:RI AM WAITING 
SENT 


+) Addition of a vector to rows or columns of a matrix: 


Rows Columas 
a 1 2 24 Mo.+V 1 2 18M.W 
n 2 1 2 QVo.+M 1 1 2 &Vo.+M 
n N.B. THIS WORKS EVEN IF M AND V ARE NON-COWFORMABLE. 


A number of APL/360 bugs were discussed. including: 

1) 11|10х0.1х110 110,1х10х110 
11100х0,01х110 110,01х100х110 

all give different results. 


2) Туре errors +/ and =/'APL' 


both give DOMAIN ERROR апд =/'A' 
gives a SYSTEM ERROR. 


3) Take gives DOMAIN ERROR for a right argument of rank greater than 9 


4) The domino function produces а ficticious inverse for the singular matrix 5 5p8,5p 2 


5) Function UNPACK in І ADVANCEDEX of the distributed system needs the removal 
ofthe +/ 


It was suggested that bugs should be sent individually to the maintainance group as they 
аге found. A follow-up by Mr Gjerlov on fix problems produced the information that 
at some future date to be announced responses to АРАВ will be sent directly to the 
customer. 


268/ APL QUOTE-QUAD 


The problem of using concentrators allowing many users to share the same telephone 


line was discussed. As an example of concentrators on the market. Mr. Gjerlor mentioned 
the split line adapter. The possibilities of using a whole computer as a concentrator and 
telex as a solution to users at a long distance were also mentioned. 


In reply to a request for news on the execute function, APL compliler and scope terminals. 
Mr. Gjerbor raised the possibility of channel overload during transmission of compiled pro- 
grams or executions of LOAD, COPY and SAVE. А C. P. U. gain might be at the expense 
of channel performance. It was suggested that IBM should be requested to install the 
Philadelphia system at least one installation in Europe for experiments. 


Mr. Boas Jensen described a PL/I program which picks data out of a workspace controlled 
іл а simple way by control cards telling the APL customer number. the library number, 
the workspace name and the variable name. A descritption of this program is available 
from 

Mr. J. Boas Jensen, 

Kommunernes EDB - central 

Brondbyoster Boulevard 22, 

Brondbyoster, 

2650 Hridovre, Denmark. 


It is also planned to extend the program to handle the problem of puting data into 
APL workspaces. 


Mr. Abrams volunteered 10 collect and forward material for Quote-Quad 


The next meeting of the committee is scheduled to take place in connection with the 
ordinary SEAS meeting in Pisa, Italy. 


А report from a subgroup on symbol manipulation surveyed the subjects main topics. 
Mr. G. Benedetti (E. S. T. E. C.. Domein Weg, Noordwyk. Netherlands) presented a 
program for formal derivation of combinations of sine, cos, log. exp and polynomials. 
Mr. P. Braffort (also of E.S.T.E.C.) showed a number of applications of APL to the 
theory of games. 


А short report from a subgroup on System Management was given. Mr. Neils Gellert 
agreed to make a list of all PTM’s needed for the XM6 version. The subgroup had also 
discussed APL in LCS. 


A third subgroup discussed "Selling APL”. Stessed were: 


Hold back exposure to a full APL program and do not introduce all the symbols. 
too fast. 

. Give a live terminal demonstration - a purposely tailored mini demonstration 

package proves particularly useful 

3. Hasten the exposure to an APL terminal session. 

4. Avoid jargon when dealing with people of non - mathematical background. 

5. Users want their problems solved. A communication problem exists between 
the application real needs and the formulation of the program. 

Selling APL is getting involved in applications. 

6. Where a choice has to be made between TSO and APL, stress that the logic of 
(say) a COBOL program can be developed in APL on line and the detailed coding 
written in batch mode almost bug - free. 

7. Proven time - sharing implementation advantages useful in the operating enviro- 

ment are - accounting, operation control, shutdown procedures, back-up proce- 

dures, batch interference adjustment. etc. 
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8. In many cases real - lime extraction of information from huge files can be replaced 
by a small file extracted off - line and introduced via punched cards and 1050 into 
a few workspaces. 


A Survey of APL Compatible Terminals 


Harley P. Macon 
Senior Operations Research Specialist 
American Can Company 


In the absence of APL program products from manufacturers other than IBM. the terminals 
described are those which interface APL 360 and APL/370. In some cases additional 
equipment is required for such interlacing (i.g.. the Memorex 1270 controller when using 
Memorex 1240. 1241. 1242 terminals or the Teletype model 38) 


АРІ compatible terminals are now available in a wide variety of types and capabilities. The 
devices described fall into two broad categories. 


| Keyboards with printers. 
2. Keyboards with video displays. 


Several devices which do not have (at present} the APL font are included because they may 
serve well in special applications where program execution only is required. 


Where terminal costs are a primary concern the TELETYPE Model 38 is certain to have a 
significant impact. [t is one-half the cost of the least expensive terminals available today. 
An appropriate font wheel is not currently offered but is certain to be forthcoming. 


Those interested in computer graphics will take special interest in the IMLAC PDS-] which 
has a full graphics capability, can display the APL character set (in fact any character set), 
and readily interfaces to APL. 


Finally several devices not fully described but which may interest users in the APL community 
would include 


The TSP-212D plotter which is readily interfaced to a storage tube display. 

The Hewlett-Packard model 7201 A plotter. 

Image Systems random access mass storage device (microfilm) which operates in 
conjunction with an АРІ. terminal. Maximum time for retrieval and display is 
3 seconds. 


wis 


Chart Lis a list of manufacturers. their addresses, and the abbreviations used in the tables. 
Table 1 is a descriptive list of all devices producing hard copy. 


Table И is a descriptive list of video devices. 
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CHART І 


PRINTERS 


Manufacturers 


Anderson Jacobsen 

2235 Mora Drive 

Mountain View, Calif. 94040 
415-968-2400 


Computer Transceivers Systems, Inc. 
317 Route 17 

Paramus, New Jersey 07652 
201-261-6800 


International Business Machines Corp. 


Data Processing Division 
1133 Westchester Ave. 
White Plains, New York 10604 


Itel 

Information Products Division 
2585 East Bayshore 

Palo Alto. California 94303 


Memorex Corporation 

San Tomas at Central Expressway 
Santa Clara, California 95052 
408-246-6200 


Novar Corporation 

2370 Charleston Road 
Mountainview, California 94040 
415-964-3900 


Omnitec 

903 N. 2nd Street 
Phoenix, Arizona 85004 
602-258-8246 


Teletype Corporation 
5555 Touhy Avenue 
Skokie, Illinois 60076 
312-676-1000 


Texas Instruments, Inc. 
Digital Systems Division 
PO Box 66027 

Houston, Texas 77006 


University Computing Company 
1300 Frito-Lay Tower 
Dallas, Texas 75235 


214-350-1211 
13. 


Abbreviations 


AJ. 


€ T.C. 


LB.M. 


ITEL 


MEM 


NOV. 


OMNI 


TI 
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VIDEO DISPLAYS 


Computer Communications. Inc 
701 W. Manchester Blvd. 
Inglewood. California 90301 


Computer Terminal Corporation 
9725 Datapoint Drive 
San Antonio, Texas 78229 


Incoterm Corporation 
Hayes Memorial Drive 
Marlborough. Mass. 01752 


Imlac Corporation 
296 Newton Street 
Waltham. Mass. 


MISCELLANEOUS 


Hewlett-Packard 
1501 Page Mill Road 
Palo Alto, Calif. 94303 


[mage Systems 

30 F. 40th Street 
New York, New York 
212-685-2120 


Time Share Peripherals Corp. 
Box 361 

Wilton. Conn. 06897 
203-762-3348 


ес: 


CT. 


INCO 


IMLAC 
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TABLE 1 


METHOD 


SPEED(CPS) 


LENGTH 
WGT. LBS. 


APL FONT 


STANDARD 


FEATURES 


OPTIONAL 


CAPABILITY 


INTERFACE 


> 
=: 
a 
= 


< 
5 


4,5.10.34,40 


3.12.31.32.35.31 


21.26 


4.7.22. 23, 24, 


МА. | Yes 537 54,46:506.52.; 
| 31.53.51 
130/156 | N.A Yes 134.5 4.12. 31.40. 42, 
44.48.51. 
; 4.7.12,36.37.46 
130/156 | мА. [усе | 1345 аа 
51 
EIA | 
156] 87 |Ye | 134.5 40 ee | 
156| 92 [Yes | 1345 22.40 EIA 
RS232 | 
10.15.30 120] 150 [00% | овоо | 6.44. 40. EIA 
40 (0) RS232 | 
1241 |1 | 10.15.30 120| iso [ves | 10000 | 6,36. 45.40. FIA 
60 (0) RS232 


І 


10.15.30 150 | Yes to 1200 
RS232 
] T : 
1242 } 10.15.30. 120] 150 | Yes to 1200 2.6.8. 14, EIA 
60 (0) (0) 37.40 RS232 
T 
NOV. 5-40-1 | I 15 130 Yes 134.5 2.5.6.7.8.12. | 3.4.1 1.31.36.37 EIA 
! ог 300 40.42.44 43.45.47 RS232 
і. An авы 
5-40-2 I 15 130 Yes 134.5 & |0,8.12.40.42. | 3.4.14.31.36.37. FIA 
300 or 600 or | 44 38.39.45.47.48 RS232 
1200 or 18 1 
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| + 
T.T E 110 22.31.40 4.21.36.38 651 МА RS232-0 
aa 
L 4 
T.I 710 ) 5.14.3640 AK IDRIS МА RS232-B 
715 to 300 5143642 к?н 
325 8.3.6.32 
+ L 
осс м 23 130,156 5.10.12,40.42 RS232-B 
35 
M 34,31,32,33 
ul = L^ a 
+ 
4 
f 
l © 


274/ APL QUOTE-QUAD 


TABLE | 


HARD COPY SEVICE FEATURES 


Binary synchronous transmission 

Automatic correction of transmission (line) error 

Acoustic coupler 

Modem 

Parity check 

Buffer 2 char. 

Automatie EOB. EXT 

Extended buffer 

Split buffer (allows due preparation while simultaneously transmitting). 


Repeat function 
Numeric key cluster 
Typamatic 

Tape editing capability 
Keyboard editing 


Tape cassette 
Paper tape 

Card reader 

Card punch 
Peripheral interface 
Video display 


Pin feed for paper 

Carrying case 

Terminal to terminal communications 
Local/Communications switch 
Reverse break - allows computer to lock keyboard 
Polling and Addressing 

Record checking (LRCC) 

Special document handling 

Header control 

Dial up capability 

Remote tab set 

Receive interrupt 

Transmit control 

Transmit interrupt 

Tractor feed 

Unattended operation 

Vertical forms control 

Buffer receive 

Print inhibit 

EOT suppression (continuous transmission) 
Audible alarm 

Shared line capability 

Auto fill character generation 
Programmed keyboard 

Additional printers 
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TRANSMISSION CODES 


l. 
3 
4 


PRINTING METHODS 


impact - ] 
Thermal - T 


GENERAL NOTES 


1 


n wis 


Correspondence = Selectric 
BCD = PTTC/BCD 
EBCDIC = EBCD 

ASCII 


Requires ASCI to EBCDIC conversion of incoming data using a device such as the 
Memorex 1270 Terminal Control Unit. 

Cannot use public telephone networks. 

Has second tape cassette drive 

Uses strip printer 

The availability of an APL font on the print wheel would make this the most economical 
terminal for APL. 
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u 


MFG. 


22 
о 


01 


MODEL NO. 


0 


ив 


CRT SIZE 


CHARACTER 
SIZE 


NO 
CHARACTER 


CHAR/LINE 
/INo. Lines 


pasn aq 01 AL JO хорлож ayy ur SN әш Аа рашииазар 


CHARACTER 
DISPLAY 


TRANS 
MISSION 
CODE 
GRAPHICS 
CAPABILITY 


TRANS 
RATES 
CHAR/SIZE 


0007005 91 


MEMORY 
SIZE 


ST 


2 


UIHLO 


үрі ücCÓL 
INIWdINOA 


1 


ў“ 


OPTIONAL 


91'tl 
“асы” 


ICOUSULT ^ 
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TABLE П 


VIDEO DISPLAYS FEATURES 


Upper case only 


1. 
2. Upper and lower case 
3. Character size 
а. 4/32 х 3/32 - 5x7 dot matrix 
b 0.14 x 0.1 - 7x10 dot matrix 
с. Variable - program defined 
Ч. МА. - a function of display size 


4. Numeric keyboard 


S. Tapes 
6. Modem 
7. Rollup 


8. Characters displayed ure software determined 
9. Automatic polling 

10. Printer 

11. IBM compatible tape drive 

12. Multiplexer 

13. Paper tape 

14. Software 


а. Assembler 
b. Test editor 
ç Graphics 


15. Tape cartridge drives 

lo. Lightpen 

17. Tablet 

18. Jaystick 

19. Card reader 

20. Acoustic coupler 

21. Synchronous communications 
22. Memory word size 


а 8 bits 
b. 16 bits 


23. АРІ. characters (note characters are program defined} 
24. Line sharing 
25. Multiple cursors 
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A Proposed APL Extension 


Robert J. Korsan 
Westinghouse Electric Corporation 
Research and Development Center 
Computer Sciences Dept. 
Churchill Borough 

Pittsburg, Pa. 15235 


As of late, extensions to APL have been offered with a proliferation only exceeded by rabbits. 
The one which 1 consider most needed and relevant has yet to be mentioned. 


I propose that the basic numeric entity in APL be a complex number! Presently they are 
members of the real number field (denoted by R . members of the complex number field 
denoted by C and positive reals by R+ ). I believe this may be done with a minimum of 
additional new symbols or operators added to APL, in particular I believe only 3 are needed 


1) I propose that the following sequence be allowed: 


ü Х«йє718.5 

1 
That is the imaginary number square root of minus one be denoted in АРІ Бу ` backspace 
" , [further believe that now all complex numbers are expressions іп APL following the 
standard rules of APL, e.g. 


=/(344xT), (3e xu) (ux 14,75), (5X« Tx 30858) 


1 
2) Representation of variables on printout should be as an APL expression, e.g. 
x 
Q) з+цхт 
РА 
bb 2 2 
A - 
3 3%%.7хі " 
5x1 YT+1ETI1R\ 


Useful Qualities associated with complex numbers are the modulus, argument, complex 
conjugate, real part and imaginary part of the number. 


1) The modulus is the straightforward extension of the absolute value and therefore 
we have 


[3+ux V 


5 


The argument is the arctangent of real (2) : imag (2). 1 propose the new operator 
a ‚thus 


а 1+1 
0.78539816 
3) Since complex numbers X+Yx1 аге isomorphic to the field of 2 by 2 matrices 
of the form:] X Y And since in the latter case the transpose of the matrix 
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ugate. [ propose that the 
їс operato 


nbol ø be used to 


denote the complex conj 


Ф Зацхі 
34 uxY 


4} My proposal for the real Cz) and imag (7) will seem farfetehed to some but Lam 
open to suggestion, anyway here goes. 


геа (21 <+ 0,542 ++ 70.542 
шин (2) +> 0.542 ++ 70.5%2 


Do with it will vou will. it is sort of APL "ish! 


Finally, we come to the effect on the other operators. | believe that most need not be 

affected at ull and that in almost all other cases The extensions are straightforward. The 

pronitives sæ+-x4Ẹ are direct and need no discussion, 2~va¥e and У have 

restricted domains and should remain so. The operators , %%9Ө8/ ХХ. (dyadic) о and dyadic t 
are data structure manipulators and are not dependent upon the character of the data 

comprising the structure. Monadie o remains as before but now every element of a 

tensor is assumed to be a complex number. у and т are not dependent upon the 

number field over which they operate. and 97 о.о 2,0 only dependent on 

the result of © tA and ALB are defined over C . «B isan entire function on 

C and therefore AOB is defined since they сап be expressed interms of suitable 

combinations of «X 01346 1,71 2, ЕРЭН (8 &. 6 Wy Y j 
If we set up suitable conditions to define Z*A and АФ2 we will determine the remaining 
о functions. Í propose that the branch cut for e be placed along the negative real axis 
and that the principle values of these functions be assumed. 


What remains is to define [ and L and therefore the associated operators 8%<<>> 
If е represents either Г or L I propose that their extension have the following 
characteristics. 


А,В,С «С and DeR* and Е.Р ЕК 


(0) EOF yields the present result 
11) ДОВ «з BoA 

(2)(4eB)oC ++ A0( BOC) 
дед ++ A 

(4) (DxA)@DxB +>DxAoB 

(5) AOB «эф (@A)o@B 


(6) Continuity everywhere except along the branch cut on the negative 


reals, 


I think that this covers almost everything if not everything and | would be very interested 
to see the reaction of the APL user community to this suggestion 


I thank Dr. Alan Perlis of CMU for his very useful suggestions. In particular Г like his 
suggestions for the operators 


real (7) <+ p Z 
imag (2) +> 1 Z 


And the new structure operators for going between representations. 


280/ APL QUOTE-QUAD 


1-A) 2 26 Z+3+4xT 
зв 
7403 
1-8) 25 2 
зв 
2-4) . 32 208 4 °4 3 
3+4x1 
2-B) 248% 
БЕГЕН 


These would be useful operators. 


I would like to thank Larry Breed of Scientific Time Sharing Corp. for his stimulating 
comments. Larry pointed out that the use of expressions in APL for large and small 

numbers is not done. There is a special notation for numbers such as 1.22722 
(instead of 14 27x10* 22 which eliminates the need for parens and catenates when 

writing constants or constant vectors. He suggests a similar special noation be used for complex 
numbers, We might then have 


3.7. 1.27E723I 

3.7.1.26Е7231 

for the cartesian notation for complex numbers. For the polar form we might have 
5.21F2_*3,62F7I (touse the ж to suggest exponential) 


or 


or 
5,21Е2_3.62Е7Р (P to denote polar form). 


Larry also suggests that tmonadic) 1 and ? be extended to gaussian integers. [ 

find nothing wrong with this but wonder if it is in keeping with index set generator. 
Larry also pointed out that my comment about T was wrong and that I didn't 
mention residue. ig. dyadic | . Since the gaussian integers are a euclidean domain 
under the valuation (Майўху ++/ (M,N) x2 we know that residue is defined 

on the complex plane and can be found by the euclidean algorithms (rather it's GCD 
and from that the residue). Since T is defined in terms of residue its proper extension 
follows. Also in this vain we see that the use of floor and ceiling to yeild gaussian 
integers follows. 

Some of the above is dependent upon the ordering given to the complex plane tin terms 
of uniqueness) and I would appreciate comments about what would be a useful one. 
(My thoughts are merely the 7 requirements noted in connection with max and min 
above.) Please write to the above address. 


APL on the Honeywell 635 

Norman Glick and Richard Schrader 
National Security Agency 
ABSTRACT 


This paper describes an implementation of APL for the Honeywell 635 Computer. Although 
several of the primitives of the language have not yet been implemented. there are some 


кә 
ua 
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system commands which provide an interesting link to other subsystems within the GECOS 


operating system. The primary implementation language is FORTRAN IV, so that some 
degree of machine independence is obtained 


The hardware. software. and user environment is briefly described. followed by a description 
ot the APL package trom the user perspective. including the reasons for selecting the ASCH 
character set rather than the APL set. The features which link APL to the other GECOS 
sybsystems. and the debug package used are briefly described. and finally. a few interesting 
features of the implementation are described. 


ENVIRONMENT 
Hardware 


The computer system is u Honeywell 635 with 256K of core memory. two DSU 270 disc 
units and one MDS 200 drum units. APL can be run on any of 30 [BM 2741 typewriter 
terminals, which are wired directly to two Datanet 30 Data Communications Processors. 
Although Honeywell supports the configuration using 2741 terminals, the terminals 
commonly used with the 635 isa teletype 


The APL system can be loaded into 33K of memory. However, the GECOS operating 
system (19К) and the time sharing executive (22K) must be in memory concurently. 


Software 


The operating system used in GECOS ПІ, SDL 3.2. Time sharing jobs are placed опа 
round-robin queue within the Time Sharing System (TSS). which is treated as a single 
high priority batch job by the GECOS operating system. A fixed amount of core is 
allocated by the operator to TSS. which must be shared by all time sharing jobs. Under 
conditions of a large. compute bound TSS job or several compute bound batch jobs 
running concurently, response time for the time sharing user can be rather poor. There 
is no capability for paging or for reentrant code in the system, and swapping of several 
users with large core requirements van be an irritating problem. 


The Fortran 1 O) Library on the system has been modified to allow programs written in 
FORTRAN IV to communicate with the TSS terminals using the ASCII character set. 
and also with disc files in standard TSS formats. 


User 
The computer system is the central computing facility for a research and development 
organization, with a user population of about 230. Many of the jobs are short. debug 


type runs. Only about 6 percent of the processor time is used by time sharing jobs, the 
remainder being consumed by batch jobs 


GENERAL DESCRIPTION 


Language 

This implementation is based on an early version of an implementation programmed to 
run as а batch job on the IBM 7090, and was obtained from Montana State University. 

The implementation language is FORTRAN IV, with a few assembly language (СМАР) 

rou 


Сп: Set 
All but 11 of the printable characters of the ASCI character set (x3.4/68) are available 
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on the IBM 2741 keyboard. There are three additional characters on the keyboard not 
in the ASCII set. The ASCII set was selected instead of the APL set for the following 
reasons: 


The 2741 terminals are used more for other TSS subsystems, all of which use the ASCH 
character set, than for APL. It is even possible to enter other subsystems from APL. and 
then re-enter APL and continue the same session. Also, messages from other programs 
such as the Fortran 1/0 routines. DDT (the debug package), or from the 635 operator 
may be printed. all in ASCII, during an APL session. 


Using Ihe same character set as that used by the other TSS programs avoids the necessity 
for obtaining two different type balls and paste on characters for terminals being used 
for APL. It also avoids the bother of constantly changing type balls, frequently having 
messages printed in the wrong character set, and the confusion of typing on the same 
terminals using two different character sets. 


The APL operators used in this system are selected from the symbols, upper case letters, 

and a few lower case reserved words. Lower case letters and numbers are used for identifiers. 
Lower case backspace is a character delete symbol (dicated by the TSS system), whereas. 
upper case backspace inputs a character. Overstruck characters have not been implemented 
This would be required if the full APL character set were to be implemented. Another 
problem in implementing the APL character set is that upper case period and comma produce 
the same codes as lower case period and comma. This means that two other symbols would 
have to be selected for use as colon and semicolon. in the APL character set. 


The transformation to the APL character set from ASCH would not be difficult. and would 
probably be accomplished if the APL usage was significantly higher. One factor which tends 
to lower the APL usage was significantly higher. One factor which tends to lower the APL 


usage on this system is that APL on an IBM 360/85 system is also available to most users. 
Primitives and Commands 


Table | gives the equivalent symbols between the APL and the ASCII character sets. The 
selection of symbols was based on one of the following considerations: 


І. APL symbol exists in the ASCII set, e.g. 
+, С): L 164 <r avery 
( = is reserved for assignment because + is not available) 
Same position on keyboard. e.g. 
REIAWPMBfor р е 1 а и ж І 1 
Similarity of appearance. e.g. 
TL7O fo TL зе” 
Mnemonic connection, e.g. 
X for expand, Q for quad, S for string, M for mod or magnitude, N for not, P for 
power, B for base, F for function. 


Where no reasonable single character symbol could be found, a two or three letter reserved 
word is used. In some cases the reserved word is used as an alternate to the symbol. if this 
would appear to make life easier for the user. For example. max is equivalent to C. and min 
is equivalent to L. 


Table 2 gives suggested symbols for primitives which have not yet been implemented. Other 
features which need to be implemented are suspended functions, stop and trace vectors, І 
beam functions, and the diadic question mark (deal). Also, it is presently impossible to use 
a structure with rank greater than } as a subscript, and a scalar is not extended when assigned 
to a subscripted variable (e.g. ХГ1 3 5]= 2). 


October 1, 1971 - Vol. Ili, Мо. 2 е 3 /283 


Table 3 gives a list of APL/635 primitives which are not available on the APL/360 version. 
These primitives were inherited from the original 7090 version. The monadic epsilon 
(execute or unquote) is another primitive available on APL/635 which has not yet been 
released by IBM. 


Table 4 gives a list of system commands which have been implemented. The commands in 
the first group (continue through off) are the same or very similar to the APL/360 commands. 
The three commands unique to the 635 version (ddt. cmdint, and include) are described in 
the following section. 

TABLE | 


APLX360 Symbol APL > Description 

ABC. ..Z alohnabec 

012...9 012...9 qocimal digits 

E e exponeuc, times ten 
к negation (unuerscore) 
= not 
2 Е 
* 2 
decimal point or veriou 
comma 

left parentuesis 

right parenthesis 

colon 

left oracket 

right bracket 
nultinlication sien 
exnonentiation 
seni-colon 

expand 

less ti 

loss than or слча1 
ела 

creater or evual 
qreater than 

not вілі 

and 

or 

encode 

size or resaapao 

numeric I/0 

string I/O 

magnitude or modulus 
Givision 3144 

ceiling or maximum 
fioor or mininum 

go to 

метшогзаіо or execute 
inaex or ілосх generator 
uecode (base) 

null 

ueal or random numer 
comores3 or reduc? 
function delimeter 


, 


( 
) 


* x carne 


N 
+ 
, 
( 
) 
[ 
] 
* 
Р 
` x 
< < 
le 
eq 
ge 


<> v 
Ф 

° 

эн 
3 


pcs o F ат iene BDO + < > w v V и і 
1 t OQ O, Z (n O Z a 


чуо Ошно 
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TABLE 2. 


Suggested symbols (not yet implemented) 
APL/360 Symbol APL/635 Symbol 


Description 


® In or log logarithm 
: fac or cmb factorial or combinations 
° pi or trg pi or circular 
* nnd nand 
v nor nor 
+ + take 
+ p drop 
Á gu grade up 
Y gd grade down 
$ rev or rot reverse or rotate 
% tr transpose 
TABLE 3. 
APL/635 symbols not available on APL/360 
А alpha (пАм is mtnR1} 
w omega (лт 1$ (-m)tnR?) 
$ location (current line of 
function, similar to 226) 
rti rotate left (vector) 
rtr rotate right (vector) 
shl shift left (vector) 
shr shift right (vector) 
TABLE 4. 
GE 635/APL SYSTEM COMMANDS AVAILABLE 


)continue same as ) save continue; does not end work session 

)clear activate a clear workspace 

Hoad FN activate a copy of a stored workspace 

)сору FN copy all global objects from a stored workspace 

сору FN NAME copy a global object from a stored workspace 

Әрсору сору all gobal objects from a stored workspace, protecting 
active workspace 

)pcopy FN NAME copy a global object from a stored workspace, protecting 
active workspace 

erase NAME (S) erase global objects 

Migits INTEGER. 1-9 set maximum for significant digits in output 

width INTEGER. 30—130 set maximum width for an output line 

)save (FN) store a copy of the active workspace 

)drop FN erase a stored workspace 

)fns (LETTER) list names of defined functions 

)vars (LETTER) list names of global variables 

Joft end work session and return to system level 

)ddt calls DDT for debugging purposes 

Jemdint calls command interpreter; return to APL by typing “return” 

include read the ASCH data on file unit .39 into the active workspace. 


(no errors and no homonyms are allowed) 
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NOTES 


1. DDT and/or CMDINT might not be loaded with debugged versions of APL. 

FN is normally a file in the user's catalog. Files in other catalogs may be used by APL 
only if previously accessed. The ) emdint command may be used for accessing files 
while in APL. 


[E 


3. Currently. files created by APL are 2 links in length. 1f 2 links of permanent 
file space are not available. a temporary file is defined. 


UNIQUE COMMANDS 


) include provides a means of rec g the input to APL from an ASCII file. The file may 
have been created by a previous ) copy command. which will be described later. or as output 
from a program written in another language, such as FORTRAN or ALGOL, or loaded from 
cards, or typed in using the Text Editor or some other subsystem. 


Through the use of Copy and Include, the contents of a workspace can be examined or 
modified hy the Text Editor. which provides many capabilities not otherwise available. Also, 
in typing large volumes of data for APL when the system is heavily loaded, better response 

van be obtained by typing the information using another TSS subsystem and then using Include 
to enter the data into APL. 


) ddt provides entry into a very powerful debug package. which was used extensively in debugging 
the APL 635 system, DDT allows the following 


l Examination and modification of memory and registers in either octal or instruction 
format. 

2. Setting and clearing of breakspoints. 

3. Labeling of locations for ease of reference. 

4. Addition, subtraction, multiplication, decimal to octal conversion, and boolean 
operations. 

5. Automatic display of selected locations on breakpoints. 

6. Fault handling routines, which give type and location of faults. 

7. Capability of transferring to any location. including the ability to proceed from 
а breakpoint or fault. 

8. Display of consecutive locations in either direction, or chain through addressed 
locations (indirect addressing). 


Jemdint provides a link to the rest of the GECOS TSS system from APL. Under the command 
interpreter (CMDINT) three types of commands may be executed, as follows: 


1. TSS system level commands. e.g. Fortran, Access, List, Status, other subsystems 
written by the user, etc. 

User defined commands which provide flexibility and convenience in building and 
submitting remote batch jobs. 

3. Commands which execute assembly language routines within CMDINT. 


ә 


IMPLEMENTATION NOTES 


System Size 

The size of the APL system. including the debug package is 36K. Table 5 gives a breakdown 
of the number of words in each part. The common storage includes a 3000 word table which 
holds APL data structures. and a 1000 word table which holds APL symbols. The size of these 
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tables is variable, but is restricted by the size of the APL System relative to the core space 
allocated by the 635 operator to TSS. 


Workspace 


The 3000 word table is generally considered to represent the size of the workspace. Within 
this table, integers and floating point numbers are stored one per 36 bit word (double precision 
is not used by the APL System). Characters are packed four per word (nine bits each), and 
boolean values are packed 32 per word. In addition, data structures require extra words equal- 
ing 3 plus the rank of the structure. For example, scalars require a total of 4 words, vectors 
require 4 plus the number of data words, etc. Functions require un integer vector with one 
integer per line including the header line. plus an integer vector for each line with one integer 
for each symbol. 


TABLE 5. 


Core size of the APL 635 System 

number of words percent of total 
APL programs written in FORTRAN 17448 48.50 
APL programs in assembly language (GMAP) 1328 3.63 
FORTRAN 1/O package (GMAP) 5769 15.77 
CMDINT (command interpreter, GMAP) 
DDT (debug package, GMAP} 
COMMON Blocks 
Loader tables, Patch area 


Total System 


Routines 

Many of the routines which form the heart of this APL impiementation, such as the syntax 
analyzer, the typewriter input routine, and many of the primitive routines. and not changed 
appreciably in their general structure from the original Montana State version. The following 
paragraphs give very brief descriptions of routines which may be different from other 
implementations, and of some interest. 


)copy 

Á portion of the APL system is swapped out, and the workspace to be copied is read into the 
vacated space. Items to be copied are then located and translated to ASCII, and written on a 
disc file. The keyboard input routine (TYPEIN) is then directed to read the contents of this 

file. As mentioned earlier, the ASCII file may be operated on by other subsystems and then 

re-read, using include. 


)include 
This command is exactly the same as the last portion of the copy command. TYPEIN is 
directed to read the contents of an ASCII disc file. 


Quad Input 

When a quad input symbol is encountered, TYPEIN is called and the resulting code is placed 

in a block separate from the code being executed, followed by a pointer to the symbol on the 
left of the quad symbol. The generated code is enclosed in parenthesis, so that it will be treated 
as a separate expression. The code in the block is then executed, after which a return is made to 
the symbol left of the quad. 


29. 
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Execute 


Execute is implemented in a manner very similar to quad input. The string to be executed is 
placed in the input buffer und TYPEIN is called. resulting in a block of code followed by a 
pointer to the symbol to the left of the execute symbol. The code is then executed and a 
return is made to that symbol. Note that both quad input and execute may be nested to any 
depth, as long as there is space to store the generated code. 


Saved Workspaces 


Upon a ) save sommand, portions of tables and various pointers are written on a binary file. 

Ifa file by the specified name exists. it will be used. Otherwise, an attempt is made to create 

а two link permanent file. Two links equals 7680-36 bit words, enough to hold a full work- 
space. If unsuccessful, because the user has not been allocated sufficient file space. a temporary 
file is defined. Temporary files are released when the terminal session is ended. However, the 
user may transfer the data to a permanent file prior to logging off. Saved files may be less 

than two links by creating the files in advance of the APL session. 


An On-Line Proof Checker Operating under APL/360. with Educational Applications т Logic. 
Mathematics. and Computer Science. 


P; D. Page 
Campus Computing Network 
UCLA 


One of the long standing problems of Computer Science is the development of programs 
capable of checking. correcting. and possibly even prompting or suggesting logical reasoning 

in various areas of human activity. [t isa problem with a good chance of solution. The 
obvious application for such a reasoning program is formal logic itself, but other application 
areas include reasoning about everyday real world problems, proving theorems of mathematics. 
and verifying correctness of procedures for solving problems, i.e., "programs" in one sense 
or another. 


There are several valid starting points of attack on this problem. We have started by developing 
a proof checking program that will check the correctness of logical deductions written in à 
modern system of formal logic(D. Kalish and R. Montague, "Logic, Techniques of Formal 
Reasoning.” Harcourt, Brace and World. Inc. 1964). This program has an additional theorem- 
proving capability and can construct formal proofs for all of the standard theorems of pro- 
positional and predicate logic. This facility allows the user to make routine "jumps" in his 
chain of reasoning without the program making trivial complaints about incorrectness. 


At present, the facilities available with this program are as follows: 

[he proof checking program operates in an on-line interactive mode under the APL/360 System. А 
proof to be checked is entered line by line at the terminal. As each line is entered. the program 
either accepts the logical statement as a valid consequence of prior proof lines, or rejects the 
statement as invalid. When a statement is accepted, it is numbered. formatted and typed out by 
the program for later reference. When a statement is rejected. a message is typed stating the 

reason for rejection. 


The proof checking program automatically determines when a proof is complete and the 
assertion has been proved. A message is typed as soon as proof completion has occurred, and 
checking terminates. 


As indicated previously, this program checks proofs of predicate logic with equality formulated 
according to the system of Kalish and Montague. All of the necessary inference rules of the 
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Kalish-Montague system have been implemented. The basic mode of program operation requires 
an annotation, i.e., inference rule name and line references, to accompany each new logical 
statement. If the statement entered does not follow from the referenced lines by the given 
inference rute, the statement is not accpted. 


In accordance with the formalization of the Kalish-Montague System, a new subproof or 
derivation may be started at any point in a proof. This subproof may make use of any logical 
statement already acepted as part of the larger proof. Subproofs may also contain subproofs; 
nesting of subproofs may be continued indefinitely. The proof checking program keeps track 
of these subproofs and provides an indication when each is completed. This subproof 
completion message identifies the line containing the assertion which has been proved. 


The basic mode of operation is augmented by a number of special problem oriented features. 
One of the most convenient features is the ability to enter an annotation without an 
accompanying logical statement. In this case. the program automatically deduces and displays 
alt logical inferences following from the given annotation. 


The proof checking program also has the capability of maintaining a list of axioms and theorems 
for use in constructing proofs. An axiom or theorem from this list may be recalled and entered 
as a line of the proof by an appropriate annotation. 


The final and most powerful feature is an integrated theorem proving mode. A logical state- 
ment entered without annotation causes the proof checking program to invoke the theorem 
proving mode. This theorem prover is currently powerful enough to generate derivations for 

all elementary theorems of the propositional and predicate logic. It can easily verify statements 
which follow intuitively from previous logical statements, and thus eliminates the effort involved 
in leading the checking program step by step to the same logical consequence. 


Though a complete set of inference rules is currently implemented, it will in the future, be 
convenient to be able to expand this list to include more powerful derived rules of inference. 
At times it may also be convenient to have inference rules which are especially well suited to a 
particular theory. The current proof checking program provides a means by which such derived 
rules of inference may be easily added. 


At present, the input function has been tailored to accept a natural input language, i.e., 
mathematically oriented notation, so as to provide a system for checking proofs in mathematics 
(algebra and number theory). Eventually the formal system will be extended so that proofs 

of correctness of fairly simple computer programs can be generated and checked. 


The program as it now stands has some obvious educational applications. In particular, it is 
expected that the current program will be used as an instructional aid by students of symbolic 
logic for performing homework problems and other exercises. 


Example of Kalish-Montague Formal Logic Proof 


T19 1. Show (=P >P) +P 
Р-Р 
Show P 


Modus ponens (MP) 
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Proof Generated Interactively using the APL Proof Checker 


User Input 


Program Response 


START 


PROOF CHECKER --- VERSION 1.1A APRIL 1971 
SHOW (-Р+Р)+Р 

1. SHOW (~P+P)+P 

2. ~((~P+P)+P) ASSUMP 

3. ~P+P ASSUMP 

“. =P ASSUMP 

3,%,МР 
5. P 3,8 MP 


PROOF COMPLETED, CHECKING TERMINATED, 


Proof Generated by the APL Theorem Proving Functions 


PROVE ‘(~P+P)+P! 


12 SHOW (~P+P)+P 

2. —((-Р-+Р)+Р) ASSUMP 
3, ~P+P ASSUMP 
4. Фр. ASSUMP 
5. (-Р+Р)^-Р 2,0С 
6. PvP 3,CD 
7. Р 4,3,MP 
8, MP %,3,МТ 


PROOF COMPLETED SUCCESSFULLY. 
PROOF USED 2.92 SECONDS OF CPU TIME. 


Proof Exhibiting Various Features of the Proof Checker 


START APL function which invokes checking 
PROOF CHECKER --- VERSION 1.14 APRIL 1971 
SHOW (P+Q)++~( Pan) 
1. SHOW (2>0)---(Рлей) 
2, “((P+Q)<+—(PA#Q)) ASSUMP 
SHOW 
3. SHOW (Рэд) (Рад) Ап obvious assertion is supplied by 
4. "((Р»2)>-(РАеЗ)) ASSUMP the proof checker 
5. P+Q ASSUMP 
6. ~~( Pang) ASSUMP 
6,DN 
35 Раса 6,DN 


7,5 Input in the 

8. P 7,5 abbreviated 

9. ~Q 7,8 form 
5,94,МР 

LINE DOES МОТ FOLLOW. — n. invalid deduction is detected] 
$.8,HP 


5,8,MP 


10, 4 
SUB-PROOF АТ LINE 3 COMPLETED ,----БаһргооҒ completion is detected 
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SHOW “(Раздз (Рэд) 
SYNTAX ERROR IN INPUT, OR IMPROPER LINE: 
A~Q)+(P+Q) 


il, SHOW “(PA#%Q)+*(P+Q) 
12% “(“(PA“Q)+(P+Q)) ASSUMP 
1%. ~(P+Q) ASSUMP 
Рэд 
15. SHOW Рэф Theorem prover is invoked to obtain 
16. ~(PA~Q)A~( P+Q) 12,NC an obvious contradiction 
17. Рл”д 18,840 


SUB-PROOF AT LINE 15 COMPLETED, 
SUB-PROOF AT LINE 11 COMPLETED. 


3,1, Correction of 
v input (APL) 


1,CB 
18. (Ре) е (РАУ) 3,11,CB 
19, Рана) «з (Рэд) 3,11,CB 
PROOF COMPLETED, CHECKING TERMINATED —— [root completion is detected 
ns $ Double negation (DIN) 
$ og 
(112 фаў Simplification (5) 
$ у 
9-4 
$ Modus ponens (MP) 
4 
$25 
4% Conditional-biconditional (СВ) 
тет; 
Example of a Predicate Logic Proof 


Proof Generated Interactively using the APL Proof Checker 


Program Response User Input 
START 
PROOF CHECKER --- VERSION 1.14 APRIL 1971 


SHOW ALXJ)(F[XJ+G[Z))+ 
1. SHOW АГХ2(РГХ1»01Х1)-(МІХІРГХ1-4ГХ101Х1) (01242744 


2, ~( AUX] (FLX I+GLX] )>+COCXIFCXI+ACXIGLXI)) ASSUMP 
3. AEXJCPEX 19 GE X1) ASSUMP 
4. "(А(ХІРІХ1»Һ(Х16(Х1) ASSUMP 


SHOW АГХЇР(Х1-А(Х16(Х1 
5. SHOW A[X]F[X]+A[XJC[X) 
6. ALXJFLXJ ASSUMP 
їе 1460 ASSUMP 


34. 
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SHOW A[X]G[X] 


8. SHOW AELXJGLX] 
9. -GLX] ASSUMP 
X 6,UI 
10. FEX] 6,UI 
x 3,UI 
13. P(X]+G[X1 3,UI 
10,11,МР 
12. СЕХ) 10,11,MP 
SUB-PROOF AT LINE 8 COMPLETED, 
SUB-PROOF AT LINE 5 COMPLETED. Notation 


PROOF COMPLETED, CHECKING TERMINATED. 
A denotes A ory 


У denotes У or З 


Kalish-Montague Formal Proof 
T2or 1. Show Ax(Fx > Gx) > (AxFx > AxGx) 


2.| Ax(Fx > Gx) 
3-1 Show AxFx > AxGx 
4 
5. 
6. 4, UI 
7. 2, UI 
8. 6, 7, MP 
Aud Universal instantiation (UI) 
y 
bop 
Ф Modus ponens (MP) 
$ 


A LANGUAGE MACHINE 


Rodnay Zaks 
Center for Research in Management Science 
University of California. Berkeley 


THE META-APL TIME-SHARING SYSTEM 


МЕТА. APL. is а multiprocessor time-sharing system developed at the University of 
California. Berkeley. for interactive real-time APL service. Its conceptual design has 
deliberately been kept simple and an expeptionally high performance to cost ratio has 
been obtained. Most of the functions traditionally performed by software have been 
pushed into the hardware-firmware execution unit. The core memory. although fast 
(750 nsec) is viewed by the processor strictly as an IO device. 


The system was developed in two steps: completion of an APL processor and develop- 
ment of an operating-system processor. both processors being micro-programmed and 
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communicating through shared core. We will describe here the APL-machine. For further 
details about the total system. its use and possible extensions. see (1). 


The APL machine may rightfully be viewed by the end-user as a dedicated hardware APL 
processor. lts design. however, embodies the integration of hardware, firmware and software 
concepts. Technological advances in the state of the art have made available micro-processors 
with a high major/minor cycle ratio (9 to 10) which are equipped with micro-instruction sets 
comparable in power to the conventional instruction sets, thus placing a premium on the 
number of instructions performed between core accesses. In fact. if this number if large 
enough (8 suffices in META APL}, the processor may never have to wait for core and will 
run at the speed of its internal registers (90 nsec in МЕТА APL). This technological advance 
allows an interpreter for the first time to reside directly in control-storage and still provide 
very efficient language processing. A simple example will make this point clear: during the 
time it takes the processor to pertorm а (microprogremmed  tloating multiply (20 usec), 

it could have walked down 167 levels of à binary decision tree or performed 237 logical or 
shift operations. 


An APL interpreter being obviously needed to provide the time-sharing facilities and elaborate 
diagnostics. it was decided to implement directly the interpreter in the ROM (Read-Only-Memory ) 
control storage of a micro-programined processor. 


THE LANGUAGE PROCESSOR: HARDWARE 


Digital Scientifie’s МЕҒА- a microprogrammed 16 bit-processor, was selected as a suitable 
host for the interpreter. H executes 32-bit micro-instructions in 90 nsec average time. Micro- 
programs are stored in up to 2K of ROM and this pratical limitation constituted an important 
constraint on the design of the system: the whole interpreter hud to fit within 2.000 instruct- 
ions of control storage. accentuating the original philosophy to keep the overall design simple. 
Core cycle is 750 ns proper. or 840 ns, accounting for propagation and interface delays. 


The processor is organized around a simple 3-bus structure: data are obtained from the A- 
bus and B-bus and gated to a logical unit. followed by a shift unit. The result is then gated 
via the D-bus to the specified destination register. A typical 3-address instruction is shown 
below in assembly language. 


MEMORY- ADDRESS REG = REGISTER 7 + REGISTER 20 LS МК. 
Registers 7 and 20 represent the origin registers on the A and B buses. 
+ is the specified urithmetic operation 
L8 (eft shift eight positions! is the specified shift-unit operation. 
MR is an independent modifier-bit which wakes up the memory inter- 
face l'or the specified memory read operation 
MEMORY ADDRESS. REG receives the resulting data from the 
D-bus. 


The machine is equipped with 32 logical register positions which have been filled with 28 hard- 
ware registers and а 64-word 40 nsec seratch pad 


To facilitate dynamic memory allocation, the processor has been equipped with a hardware map: 
128 word: 12 bits. thus has access to a 65K virtual memory, physical storage 
being allocated in 512 word-blocks, the page size. Care being taken to start map accessing at the 
same time as the priority level is being decoded. the overhead due to map insertion is nil in most 
cases. 


THE LANGUAGE PROCESSOR: FIRMWARE 
An APL statement. edited at one of the CRT terminals. is transformed by the “Translator” into a 
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token-string or "internal APL У The Translator, resident on the Operating System Processor, then 
discards the external APL string. The one-to-one correspondence between external and internal 
APL insures that either string may be simply generated from its translator image. All tokens 
consist of a descriptor field. identifying the syntactic type of the token followed by a semantic 
field identifying its content (variable index number. function index number) or actually holding 

it (operator code or floating point number}. АП tokens are one word long, with the exception 

of numbers which are represented in a 2-word floating-point notation and vectors which have a 
3-word header followed by the vector clements. 


"Ihe META--APL interpreter processes such internal APL strings dynamically. incrementally and 
deerementally, Decremental program execution is made possible to the extent of a one-statement - 
backup and of a one-function level backup by deferred assignment of values to operand calls, the 
intermediate result being pushed on the Stack. To avoid too severe a storage loss, arrays of large 
size May not be backed up as this turns off the future. 


The concept of process is associated with the entity in control of a processor during a computation. 
A process thus has a number of attributes such as: map or virtual space, virtual processor defined 
by the process capabilities or segment descriptor table. The correspondence being isomorphic. all 
characterizations belong to a common equivalence class that we shall call the process equivalence 
class. In practice, we shall characterize a process by a distinguished element of its class, the ргос- 
ess segment of its virtual space. A process is brought into existence by a fork instruction in a 
mother process or by deliberate coupling of a user with the system, resulting in the creation of 

а master-process. We shall now examine the virtual space organization of a process. 


The 65K virtual storage allocated to each process is partitioned in four segments: 


l. Program strings: contains all internal APL strings in execution for all processes 

Area | is common to alt users and allows simple dynamic sharing of user programs 

and library APL functions. 

System tables: common to all users do the obvious thing. 

Management Table (MT): а stack of address tables (ОАТ) followed by the Operator 

Push Down Lists (OPDL) at each level. Within each variable token, the identifier 

field constitutes an index number to the appropriate (global/locall ОАТ. The OAT 

entry points to the actual operand location within the stack segment. 

4. Stack: all temporary results. literal arguments and unevaluated variables ("Operand 
Calls") get dynamically pushed down on or popped from the operand stack. 


wits 


Stack and Management Table constitute the process segment. 


In a first phase, the Interpreter operates a left to right parse of the tokenised APL line. pushing 
Operand Calls. numbers and vectors on the Stack and pushing the operators onto the OPDL. A 
function сай is placed at the end of the previous ОРОГ and starts a new. local. OAT segment. 
followed by а new ОРОТ. for the function. When an APL execution delimiter is encountered, 
such as end-of-line. the Interpreter enters its right to left execution phase. applying operators 
from the OPDL to operands appearing on top of the Stack. 


Naturally. the two top elements of the Stack as well as the top of the ОРОГ and all appropriate 
pointers are kept in hardware registers. Further discussion of the Stack management and dynamic 
array handling is not within the scope of this paper. 


THE LANGUAGE PROCESSOR: SOFTWARE 
Since the phsical size of the ROM limited the interpreter size to 2,000 instructions, it was not 


possible to implement in firmware all of the numerous and sometimes very complex APL 
oper: onsisting ot the 17 most used operato 


ther 


36 


294/ APL QUOTE-QUAD 


fore included in the interpreter and all remaining operators were implemented as library APL 
functions, Le.. APL code using this primitive spanning set (2). The Translator is in charge of 
substituting a system-function call descriptor for this class of APL operators. 


FIRMWARE DEVELOPMENT 

All system firmware is to be developed in three phases: 

Phase 1: simulation on the XDS 940 time-sharing system. with all the facilities inherent to 
а general purpose time-sharing system: file system, editor, on-line debugger, and 
assembly language. 

simulation on META МЕТА, a self-emulator for the hardware processor, resi 
in the processor itself. МЕТА-МЕТА fetches its insturctions from core and simulates 

by means of interpretive execution the operation of the corresponding ROM micro- 
instructions, thus allowing core to be used as a simulated control storage. with all the 
flexibility of read-write storage. but at an expense of a significant reduction in ex- 

exution speed. This simulator also provides an on-line debugger and assembly language. 

In addition. it is equipped with all the routines necessary to control the IO devices 

particular to the META-APL system (because of the generality requirement. no IO 

routines are available on the 940 simulator). This mivroprogram was naturally developed on the 
940, The use of this second simulator may appear to be superfluous in view of the availability 
of the first one on the 940. Let us therefore indicate the important functions that it performs: 


insuring a thorough hardware check-out by early and continuous use of all of 
the machine micro-operations. 

- providing continuous and on-site access to a simulator with complete IO 
facilities. 
allowing all programs. even test routines (other than CPU-test) to run on the 
machine interpretively from vore for as long as possible before being finalized. 


Phase 3: finalization of the debugged micro-code into ROM patterns. These patterns are easily 
field-alterable and tina! touch-ups are done directly on the ROM boards. 


SYSTEM UTILIZATION 


The META -APL system van service up to 64 simultaneous processes. APL has been extended 
to provide each user with the ability to create parallel processes running concurrently with the 
mother process and asynchronously. in a typical situation. one large program will activate 10 
to 16 parallel controlling processes, each connected via a CRT terminal to the experimentee. 
These special processes have highest priority and run under a real-time constraint (response 
time less than 0.1 sec). Simultaneously. the system provides APL service at a lower priority 
for normal program development by other users. 
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І. “A Firmware APL Time-Sharing System" Rodnay Zaks, Divid Steingart. Jeffrey Moore. 
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The Language Processor 
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Modifications to the APL/N30 System Part 2 
J. F. Clementi 

1. В. M. (Australia) 

95 North Terrace 

Adelaide, 5000, South Australia 


B.G. James R. P. Fletcher 

School of Mathematical Sciences. School of Mathematical Sciences. 

The Flinders University of South Australia, The Flinders University of South Australia, 
Bedford Park, 5042 Bedford Park, 5042, 

South Australia South Australia 

In Part 1 of this series we indicated that two immediate projects to be pursued 

were! 

(a) Introducing a "Paging routine for the console typewriter for operator con- 


venience in separating output: 

(b) The implementation. of two new system commands to allow printing of 
alphanumeric plus several special characters on the 1132 printer or printing 
зЁ the full character set on the console typewriter. 

Both of these projects have been completed. 

(a) The system counts lines as the console typewriter successively skips to a 
new line and after typing the sign-off message skips to the beginning of 


the next page. This is accomplished by passing control after the printing 
Of the sign-off message іо a ‘Paging’ overlay which is disk resident. The 
overlay then returns control to the system which in turn searches for the 


next sign-on card. 
(b) The two new system commands to control printing are: 
(1) OPRINTER. N 


and (2) JCONSOLE N where N is any non-negative integer less than or 
equal to 32.767. 


The OPRINTER N system command causes everything which would normally he 
printed on the console typewriter to be printed on the 1132 line printer 
thus speeding up output The characters available on the line printer are 

A to Z. 0 to % =.,-* C ) t амі. 


An attempt to print any other character will result in a Š (Dollar sign) being 
printed in its place. with the following exceptions 


D E] are converted to ( ) respectively to allow tracing of function 
execution on the line printer 

(2) The negative sign ^ is converted to a minus sign = 

Execution of each printer command causes. a skip to a new page with the 

following message printed out at the top of the page: 


PRINTOUT NUMBER N OF USERNAME 

Where N is as before and USERNAME is the name by which you are known on the 
System. This heading is followed by a blank line after which your printing begms. 
The Command: 

JCONSOLE N 


Restores the system to normal console mode of input and output. At present 


40. 
12-25 -“ 
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it is not possible to use the )PRINTER N system command from the console 
typewriter. 


А couple of facts: 


(1) И an error occurs while in printer mode the information regarding the 
error is printed on the printer. 


(2) A final JCONSOLE N command is unnecessary as the sign-off routine 
assures that the system is in console mode. If the final CONSOLE N 
command is omitted the following occurs at sign-off time: 

JOFF (on the Printer) 

SIGNED OFF ton the Console) 


In addition to the above extensions. two more extensions have been made 
They are: 
(a) A patch suggested by Steve Raucher has been implemented. 
and (b) the system has been modified to accept optical mark read (OMR) 
cards from a 2501 card reader with the OMR feature. 

(a) Normally when the system detects an error in card mode on our 
system. it would flush cards until a OFF system command was read. 
The system would then sign-off. page. and search for the next sign-on 
card. With the suggested patch. the flushing of cards is suppressed 
when an error is detected. This means of course that some meaning- 
less printout will occur, but the advantage of having a complete reading 
of the cards to check for mispunchings or mis-markings (depending on 
whether or not you are using the OMR system) has more than out- 
weighed any disadvantage arising from meaningless printout. In addition 
by having a complete listing of a program, logic errors can often be 
discovered before the program runs for the first time. thus saving 
machine time. 

(b) The optical mark read (OMR) APL System is being used by the South 
Australian Education Department on there 1130 system which is equipped 
with a 2501 card reader with the ОМК feature. A photostat of the 
card design being used is included in this article. А study of the card 
will show that some rather useful operators are not on the card. This 
situation arose because of a space problem on the саға and the relucta- 
nce to decrease the number of characters per card to less than 19 or 
20. Marking a CT in column 20 allows for continuation to the next 
card Each student is issued with a chart indicating for each missing 
operator the marks that he must make to get the desired operator. 


No difficulties have so far been experienced in the use of the card. The cards 
are printed in two colors with two different color distributions being used 
to test student preference. Marking instructions are printed on the back 
of each card. 
Except for the mode of card input. the two APL systems are identical. 
A simple patch deck converts from one system to the other to allow Гог 
interchange of programs and workspaces. 
Currently under way are two projects! 

(a) The implementation of a — ONEWPAGE system command When this com- 
mand is implemented it wil cause skipping to a new page on the line 
printer. After the first JPRINTER command each successive PRINTER 
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system command will cause a skip of 1/3 of a page. 

(b) An attempt is being made to restore the ) PCH und )PCHS system com- 
mands which were removed to allow for the punching ofp, t and V on 
an 029 Key Punch. When implemented these commands will be accepted 
in card mode. Before a card is punched, it will be checked to see that 
it is blank. An attempt to punch a non-blank card will terminate punch- 
ing. 

Three projects which are planned but not underway at present are: 

(i) Printing of message when a program is terminated by the operator: 

Gi) Printing of the current date for each sign-on: 

(10) Extension of the 1850 word (ie. 925 characters. numbers, ete.) 
core limit. perhaps by an automatic overlay procedure: exceeding 
this 925 character limit gives the WS FULL message. 


correspondence 


To The Editors, Quote-Quad 


The following functions are being experimented with on the UMASS API system at the 

University of Massachusetts. We would appreciate comments from the reader about the 

usefullness of these functions and any changes that should be made. Note that we use 

I-beam funcitons in place of the function names specified for test purposes only. We feel 

that all I-beam functions should be masked from the user in user-defined locked functions. 

These functions are available on the experimental APL system only. 

The function 

TRAP arg 
returns the right arguement as its value. The right arguement must be a one element 
integer object or a null. After the TRAP function is executed any errors (i.e. DOMAIN) 
will cause execution to resume at the line specified by the right arguement of the TRAP 
function. A null removes any trap set previously by the TRAP function. No other levels or 
functions are affected. 1 an error occurs. and the right arguement specified a non-existent 
function line, a return will be made for the function. [f an error occurs on the line specified 
by the right arguement. the normal diagnostic is provided ( infinite loops can still occur, but 
they can be traced as with other infinite loops). The diagnostic "SYSTEM ERROR’ can not 
be trapped. If an error occurs in a locked function with no trap specified. the SE vector will 
be un-raveled to the First un-locked function (as is the case now) or to the first function with 
a trap specified (at which point the trap will occur). 


The function 
ERROR arg 
requires а one element positive integer object as its arguement. Execution of the function 
causes execution to be terminated as though an error had occurred on that fine. The 
arguement specifies the diagnostic to be printed. 


Argument Value Diagnostic 
0 nil (manuel interrupt 
l SYSTEM 
2 SYNTAX 
3 DOMAIN 
4 LENGTH 
5 VALUF 
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The function 
WHY 


REXAMPLES 


)SIV 
vF(DIV 
У 2+А P В 

(1] 2+4+В 


VIESTLOIV 
У Z«R TEST S3A 


[7] 11:4%10 


[10] 48110 
[12] 4+910 
1 TEST 1 


1 TEST 0 
DOMAIN ERROR 
F[1] 2+A:B 

A 

УР 
(21 9 

1 TEST 0 


TEST[12] 4-910 
A 
VTEST 


[2] 4-81 

[3]  aTHIS LINE MAY CAUSE А DOMIAN ERROR 
[u] Z<R F S 

[5] +0 


[6] АСЕТ THE INFO ON THE ERROR 


A TYPE З ERROR OCCURRED ON LINE 4 


RANK 

INDEX 

DEPTH 

LABEL 

SYMBOL TABLE FULL 
WSFULL 


is a niladie function whose value is a two element vector, The first element of the result 
s which error occurred last ( for values see the ERROR function) and the second 
s the line on which the Jast error occurred 


James H. Burrill, Jr. 

APL. Group 

University Computing Center 
University of Massachusetts 
Amherst, Mass, 01002 


[1] ATHE NEXT LINE SETS THE TRAP AT LINE Li 


[8] 'A ТУРЕ';АС1];' ERROR OCCURRED ON LINE';AU2] 
19) ATHE NEXT LINE TURNS OFF THE TRAP 


[11] ATHE NEXT LINE INFORMS THE USER OF THE ERROR. 


[35 
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E “Z=. 


[13] % 
1 TEST 0 
А TYPE 3 ERROR OCCURRED ON LINE 4 
1 TEST 0 
A 


1 2 TEST 123 
TYPE 4 ERROR OCCURRED ON LINE 4 
2 TEST 1 2 3 


ea 


A 
SI 
ТЕ5ТІ121 ж 
Р(11 ж 
TESTU) 
)PACK 
)SI 
1 TEST 0 
А ТҮРЕ 3 ERROR OCCURRED ON LINE 4 


1 TEST 0 
A 


)SI 
REND OF EXAMPLE 


An Implementation Note Concernine Literal Constants 


It is necessary to warn a beginner using APL. 360 that if he neglects to complete a pair of 
quotes around a literal constant. he may push RETURN and be unable to elicit any response 
from the system. He will be unable to escape from this situation until he provides the 
missing quote, Special treatment of quote marks in the input stream thus adds à complexity 
to the system that even the rank beginner is forced to acknowledge. An implementation 
alternative is presented below which should circumvent this problem. In offering these ideas 
to others it is hoped that airing reasons Гог both approaches will bring implementers to an 
agreement and avoid inconsistencies between implementations. 


It appears that the APL’360 treatment of unmatched quote marks offers a way of entering 

а carrier return character and also allows the literal data to be entered on separate lines on 
the paper (although the characters entered are presumably treated otherwise by the system 
as a single line). A better way of entering a carrier return in a literal constant might be to 
represent it as C overstrike R. This does not allow a literal vector to be typed on several 
consecutive lines, but it is not clear that it is desirable to do so. [t the literal data is being 
entered on several lines, how far back can the user backspace to make corrections? Allowing 
him to revise the entire input would contlict with the principle of visual fidelity. but being 
unable to do so would be restrictive. especially when modifying lines of a function. 


Another carrier control character is the backspace. On the UMASS APL implementation 

a backspace is represented by B overstrike S. The treatment of carrier return and backspace 
characters is thus consistent. The alternative of having the backspace character available 
only as the value of a variable in a public library workspace seems comparatively undesirable. 


This treatment of the carrier control characters has been implemented on our system by Jim 

Burrill and costs very little to the system. It should be remembered that these carrier control 
characters should be printed as overstrikes when they are displayed as part of a function or in 
an error report under immediate execution mode. The special handling to do this is negligible 


/301 


25 
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with our system. This allows us to easily edit a line containing either of these characters, and 
circumvents a treatment that would obtrude on users who do not wish to be concerned with 


carrier control characters in their literal constants. сс, " 
Clark Wiedmann 


University Computing Center 
University of Massachusetts 
Amherst, Mass. 01002 


Editors, Quote - Quad. 


1. In the promotion of APL. one key feature has probably not been emphasized enough 
and adequately publicized. H is the APL tracing, a very flexible and powerful feature. 
unique for APL, and not available for CALL 360 BASIC. FORTRAN. and PL/I. 


In using APL, І usually have a number of trace functions in each workspace. For example: 


VTRACE X 


[1] TAALPHA<A X 
[2] TABETA+ X 


С 1 ТАОМЕСА=\Х 


ў 


ALPHA, BETA. and OMEGA are function names. After entering TRACE 100. all functions 
will be in the tracing mode. By entering TRACE 0, all tracing will be halted. 


The APL tracing feature is especially effective in debugging or understanding large programs 
coded by other programmers in other computing centers. With tracing. one can grasp immed- 
jately the logic and flow of an unfamiliar program and narrow down the range and area of 
possible errors and bugs, Recently | have looked into a 4500-card FORTRAN program and 1 
badly missed the efficient tool of APL tracing. 


Several years ago, the Bell Laboratories carried out an experiment, comparing the productivities 
of two similiar programming groups. one using FORTRAN and one using ASSEMBLER. The 
result was that the FORTRAN group was much more productive than the ASSEMBLER group. 
Many of your readers would probably agree that APL programming requires much less time 
than other terminal languages. For many. the APL tracing featu s a lot of time in 
debugging. 


2. In your January 15. 1971 issue of QUOTE QUAD, you published a determinant function 
submitted by Mr. Wesley С. Kranitz. The following is a determinant function developed and 
popularly used at the IBM Scientific Center at Philadelphia which might be of interest to your 
readers. 


45. 
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ман 


VDETRMLUIV 
V R+DETRM М;І;4;0 


(127 J#(pM)l0+(10)011) 

[2 +hx(=/ > 2toM) ,д+10 

(31 J#ippM+(1 1 +М)-(1+М{;0])о.х({1+М[0;])+1рМ 
[s] 1414 (МСО; ]=0) 11 

[5]  -3x(0eRex/R, (C1vinI)x10MUL;O,I]-MU ;1,01)^1x4 


Sincerely. 

С. С. Tsao 

IBM. Armonk 
New York, 10504 


To the Editors. Quote Quad 

We recently purchased a Hewlett-Packard 7201 -A graphic plotter. This plotter. unlike most 
others, is language and software independent. and works extremely well with our APL/360 
system. Commands for the plotter are as follows: 


"PETE" plot the followi 
UPLTPU plot the tollowi 
UPETT* terminate plotting 


з points in line mode 
points in point mode 


The only formatting needed is to scale the X and Y values between 0 and 9999, restructure the 

two vectors into an Nx2 matrix (u: amination), and drop otf the decimal part (using ceiling 

ог floor). Plotting is accomplished by simply typing "РЕТІ or “PLTP and then printing out the Nx2 
matrix of scaled points. To terminate the plot. the user types “РЕГГ”. Terminal printing van 

also be suppressed during plotting. if desired. The example program that follows will plot 

B=sin A 


Я4141044,1х1100 
'PLTL' 
1 (8я00х4), [1.5] u000xB 


(the curve is now plotted) 
'PLTT' 


| have also written, with the help of Warren Juran at Proprietary Computer Systems. a 
complete conversational package that plots vector data (similar to 1 PLOTFORMAT PLOT), 
evaluates. scales, and plots user-defined functions (in rectangular or polar coordinates), and 
solves and plots curve-fitting problems using quad-divide. We find that these routines make 
the plotter and APL system attractive and useful to even the most elementary computer user. 


We compared this plotter with the TSP-system, and found that the HP takes less CPU time. 
requires absolutely no software (unlike the TSP). and has about forty times the plotting 
resolution. There are, however. two disadvantages to the HP compared with the TSP. The 
first is plotting speed—the TSP has sacrificed resolution for speed and can plot 3.2 times 
faster (about 215 points per minute). The other disadvantage is analog output -the TSP 
delivers analog output capable of running any analog X—Y recorder or storage oscilloscope. 
We are in the process of developing. however. a modification to the HP that would allow 
this flexibility. 


ie = =з 
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I hope this information is useful to you. If you have any questions, feel free to contact me. 
One thing I should add —Hewlett-Packard also makes an identical plotter that is compatable 
with the Model 33 teletypes 


Sincerely, 

Chris Clausen 

Department of Physiology 

School of Medicine 

The Center for the Health Sciences 
Los Angeles. California 90024 


algorithms 


Number 57 Factoring trinomials 
R. W. W. Taylor 

CAT NTID. RIT 

Rochester, N.Y. 14023 


The following program factors trinomials with integral coefficients up to 255 
(this limitation. could easily be overcome by modifying the subprogram E). 
employing the principle that two polynomials are identical if and only if they 
agree when evaluated. at . Notice that the inner product operation x. + 

is used to form all possible expressions of the form such that 
ayaa and byb> are the first and last coefficients. respectively. of the given 
polynomial. 


VELBOV 
VELA; BSCiISM 
[1] Bo 
[2] 'ENTER THE COEFFICIENTS OF THE POLYNOMIAL' 
[3] >(3 0*(pC),x/1«10C-,D)/ 5 7 
[4] 902006! FACTORIZATION TRIVIAL.' 
[5] 'YOU NEED EXACTLY THREE COEFFICIENTS.' 
[6] +3,p0-'TRY AGAIN.' 
171 t! 
[81 4+(2,рА)рА, (L4C) t 4E 1*C 
[9] BeQ(2,pB) 0B, (24C) tBe-B,-B«E 2+C 
[10] >12х11е,Ме(Вх.ж4)-(о101С 
[11] -0,р0+'ТНЕКЕ ARE NO SIMPLE FACTORS." 
[12] 141 0%(2р1%рМ)т(,М711 
(131 'ТНЕ FACTORED FORM 15! 


[14] ' (1;А[1;1%1];'0 + '$8В[1+1;1];')(;А[2;1 
VIS + BO 472); )'! 

У 
vELODJV 

VZ+EN 


[1] 2%(.001>1|М:1255)/1255 
[2] в 2 15 A LIST OF THE FACTORS OF N. 
v 


ыг 
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E 
ENTER THE COEFFICIENTS OF THE POLYNOMIAL 
£]: 

48 119 72% 


ТИЕ РАСТОКТр FORE І5 
(1655 + 73) (31 + 8) 


Number 58 Plotting Function 
K. L. Snyder 

R. W. W. Taylor 

GAl NTID. RIT 

Rochester, N. Y. 14623 


The following function. written in APL/ISO0, will plot two independent sets of 
data (using different characters) against their indices. The vector argument A 
determines the limits between which data will be plotted. 


VA С.Хү5:Е:8:8:Ү:2 

[1] 8+ 1+У\1+1.5+2+Х,000+ 1+(У«(4х7)ро 1 0 03114 
гБ (Ze. 5xpX) «X ,0pB«' 0123456789! [14 (3010) T2xLL /.5 
x4],0pN«[T/A 

[2] »2xi-^/B-(D*' 01234567898"114(21141-1)х14(3010 
)TN],' *',' Oxe'[1«(ReN)42xSeW])(13] 

[3] (бо! '),(axZ)pt-+--! 

Eu] (Sot '),(,& 280' 12'[1+ .1х1281, (28911234567 
890'),56p! ')[1%х2] 

ў 


А typical use of this function might Бе as follows 

С < 101 103 98 100 107 104 96 10: эч 
р + 97 99 104 105 96 91 102 100 95 
90 110 C с, р 


Note that the maximum lenth of C and D is 8 tor а CRT display, and 28 
it a typewriter unit is used. while the data сап vary between O and 999, 


Number 59 Arabic trom Roman Numerals 


John F. Lauer 

Colorado Computing Corporation 
Box 38 

Boulder Colorado 80302 


— 
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p эле: ЖС) 


VARABIC[D]V 
У ReARABIC SiL 
[1] Re+/((~(0,L)VE,0)/S) , (90 «R) /R-DF. S< 
(„(10*"1+14)o.x 1 S['IVXLCDM' 15] 
V 


ARABIC 'MLXVI' 
1066 

ARABIC 'MCMLXXI' 
1971 

ARABIC 'MCMLXXXIV' 
1984 

ARABIC 'MMI' 
2001 

)CARD END 


Number 60 Formatting 
John E. Lauer 


VFORMATLU)V 
У КР FORMAT XiSH;K;S8;N; DC; D M;ND;ILP;IP;J;ERP;PA 
[1] K+(I+1)+pSH<px 
[2] Мерре0<004|0.5%10х1|,Р 
[3] Re(1p0ND-PBS(Ne-pS-1*0» Xe ,X) pFe ,LF)p! ' 
[s]  X«L0. 5*1 Xx10*NpDC 
[5] | ND«ND-NoD 
[6]  PA-F-D*i 
[7] Р1:ЕР(Р[+1+М|1-11010)тХСІ] 
[8] 51116511 3xPAUJ]«P«1*DCCUJ ] PLS 1- COSRP) v1 
[9]  RP«1«0(P«PALJ]LP) o6 RP 
[10] RL(E-NDLI]-P)*IP*(IPeiP) »P-DC[J1]«' 0123456789 ' [RP] 
[11] АГЕ]«' -+'[S[IJJ) 
(121 RLDLZJ/NDUI ]*1-DClJ)]eDL21/' . " 
[13] >(N2I+I+1)/P1 
[15]  Re(((K=3)pSH) ,*/ (1001, SH) pP) pR 
[15] »0 
[16] 'IAF, ROUNDED, O-SUPPRESSED, REPEATING FORMAT. PBS IS +\' 
V 
10.5 FORMAT кі 
2.71828 
8.4 7.4 8 FORMAT - 3 р10хх1 
-27.1828%7.1828 -27 
10.5 10.2 FORMAT 3p*i 


2.71828 2.72 2.71828 
10.6 10.5 10.4 10.3 10.2 10.1 FORMAT 6p*1 
2.718285 2.71828 2.7183 2.718 2.72 2.7 
10.4 10.3 10.2 10.1 10 FORMAT 5р0 
0.0000 0.000 0.00 0.0 9 


10.5 FORMAT 2 Зрж1 


2.71828 2.71828 2.71828 
2.71828 2.71828 2.71828 
10.1 FORMAT-.1 .01 
-0.1 -0.0 
'ROW І RESULTS',10.5 FORMAT цокі 
ROW I RESULTS 2.71828 2.71828 2.71828 2.71828 
)CARD END 


49. 


~ 


50. 
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Number 61 
Lloyd Speckman 
Orange Coast College 
Costa Mesa, California 
This program examines a text string for a given series of characters 
VSCANTIIV 
V 2+А SCAN В 
[1] Z<v/Z,0pLQC+<(Z<AA.=( 141р,А)Ф((р,А),0,8)08)11 


У 

"006! SCAN "ABLE BAKER DOG EASY FOX' 
1 

402 
12 

“САТ! SCAN "АРІ DOG СОМ! 
0 

LOC 
12 
Number 62 Sine of a complex variable 


Kim Whitelaw 


VCSINUJ)V 

9 ВеСЗЇЙ X 
Re 1 “1 х(2 2 р 1 6 2 5)x.02*X 
ACALCULATE THE S OF A COMPLEX VALUE 
APROGRAMMED BY KIM WHITELAW 
AGOLDEN WEST COLLEGE | S'71 


one 
шума, 


CSIN 1 1 
1,298857581 ~0.6349639148 


Number 63 Scan 


John Richardson 


VEMULLI]V 
у Z-CHMUL А 
111 2+Ах. *(1рА } о, ард 
[21 AaPROGRAMMZD BY JOHN RICHARDSON 
[31 AORANGE COAST COLLEGE 8171 
(12 ASIMULATE OLD x\ SCAN INSTRUCTION 


CMUL 12345607 
1 2 6 24 120 720 0 0 


mm 
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Number 64 Binomial Expansion 


Donald Reuter 
Coast Community College. 
Costa Mesa. California 


12:34 18921) 
V 268 BIN А _ 
(11 Z-Zx(6B)x.*A,[L0.5106A4- 1+1р2+1,(1А)!А 


AEKPANSION OF (2X - 3Y)«4 
2 73 ВІН 4 
16 796 216 7216 81 


Number 65 Multiplication and Addition of Polynomials 
W. J. Park 

DREV 

Valcartier, Quebec. Canada 


A and B are vectors containing the polynomial coefficients in descending order. 


У C+A PADD R 
111 C+(-(pAJTpB)tl(ArA),B)+(BrB),A 
v 


345 PADD 2793 
2 10 13 8 


The result is a vector of the coefficients of the sum in descending order. 


V С+А PMULT B 
111 С<1%%/5(-лрА)фФАе,хВ,АғА 
У 


3 ч 5 PMULT 27 9 3 
6 29 65 80 57 15 


The result is а vector of the coefficient of the product in descending order. 


Number 66 Determinant Evaluation 
R. W. W. Taylor 

CAI-NTID, RIT 

Rochester, New York 14623 


The following two APL/1500 programs each evaluate the determinant of a given square 

matrix, the program Е by а sweep-out process and the program D recursively by minors. 
vELDIV 

VY<E XiliM 

[1] +((2=ррх)^(=/рх)^2 <рх) /3ху+1 

121 э0,006Є"ТНЄ ARGUMENT MUST BE А SQUARE MATRIX.' 


51. 
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[3] XI5,1: JeXE1, be (C / DOT /C7 151 

ІШІ XL;M, 1]eXE 51, МГ S DOT /T /Q1 XI 

[5] >0x10=Y-Yx,1 14Xx Dee/12L,M 

[6] >3х11<1%рХ«(1 1%Х)-(14,Х1;11)9.х1%,Х(11411;11 
[71 Yerx,x 


veto 
VZ+D M3N3K 
[1] +((2#0pM) v(#/pM)v2>oM)/7,2+10 
[2] >4х2х<441%рМхХе1 
(31 э0,2=#М[1;1-.хфм[2;] 
[4] 262,МГ1,К1хр(1 O+M)[;(K=iNW)/AJN] 
(51 эзхуй>К+К+1 
[6] +0,2+-/2 
[7] 'ТНЕ ARGUMENT MUST ВЕ A SQUARE MATRIX.' 
7 


Number 67 Merging 


Н. J. Myers 

San Jose Programming Center 

Dept. 087. Bldg. 026 

San Jose, California 95114. U.S.A. 


А much faster version of Algorithm 48 


V 2<А MERGE В 
[1] ALGORITHM 48A 
[2] +((pA+,4)>pB+,B)/E1 
[3]  Z«B[M4) 
[5] +0 
L5] E1:'LENGTH ERROR' 
v 


MERGE ALGORITHM TIMING COMPARISON 
USING 121 ON 8/360 M50 


11011 MERGE 'ABCDE' 
ABECD 
TIMES: 48=16, 484=3 


Number 68 Fast Fourier Transform 


Alan L. Jones 
IBM. Systems Development Division 
Endicott. N. Y.. Р.О, Box 6 


This function works the same as the one published in issue no. 4. January 1970. but is three 
times as fast and uses less storage. It will work only with the Program Puoduct level of APL. 
Part of the gain in speed is achieved by doing 15 N log» N complex multiplications instead of 
the usual N logaN. 
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7 Z+NFFT X;N3R3M3L3P30;5;73;0 


[1] X<(2,P+<*(M<| 2@N+ 1+oX)o2)o&QX 
[21 Z+Ro& 2 1 °.00(-(O+11)-ıP)sP+N:2 
(31 Q+. P-M-1+L+0 
[u] Т+М-<0 
[5] Li1:9(MSL*-L*1)/L2 
[6] X+*(+#X),[0+ 1 0.5+5+М-Г](-/2х-#Х) ,fO«P- 
6.5] +/2хф- 4X 
17) Эа, pZ+(((-£)00), T)QFp((1+P4(S-1)p1),2)+2 
[81 22:2-8(М,2)р(%ҰХ),10-0.51-УХ 
v 
Number 69 Unitary Matnies 
Z. V. Jizba 


Cherron Oil Field Research Company 
La Habra Laboratory 

P.O. Box 446, 

La Habra. California 90631. U.S.A. 


DUN 
THE FUNCTION U+UN W GENERATES A UNITARY MATRIX. 
THE FUNCTION U+UNS W GENERATES A SYMMETRIC UNITARY MATRIX. 
W MUST BE A NON-SINGULAR MATRIX. 


01-08 ОХ) 4p?16p25 
13 23 23 2 
23 13 13 8 
25 13 a 3 
24 2 13 10 


70.1574882015 
0.3537047067 
0.7494509653 
0.5398735607 


U+. хар 
1.00000000080 
3.1068897458715 
1.7708057248 1% 
1.8610113458714 


vUNLOTV 


У U«UN НЫН 
[1] 
[21 
*0.5)/2 

У 


U<UNS X 
2 
T0, 3293504284 
0.6892065876 
0.5674349366 
53. 0.3074738488 


0.4679999149 
0.5470995396 
0.2885699731 

70.631177902 


3.106889745Е 15 
1.000000000Е0 

6.217248938E 15 
4.454769886E 15 


I*No1, (1tW+ph’) ро 
»(1E 10«*/*/ |I-Ur. xQU+W+0. Sx (W àNp (+/W2)*0. 5) +080 (+/ (URE) *2) 


0.6892065876 

0.06076660726 

05678518054 
70,4859215471 


0.7962359938 

0.07928804937 
70.2674418192 

0.5358393807 


1.7708057248 14 
6.217248938E 15 
1.00000000050 

2.153832668E 14 


0.5674349366 
0,5678518054 
70.5192319779 
0.2931894831 


70.3538807034 
0.7545120803 
70,5324711208 
0.1481704214 


1.861011345Е 14 
4.454769886#”15 
2.153832668E 14 
1.000000000Е0 


0.3074738488 

70,14859215471 
0.2931894831 
0.787815799 
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Ut xl 
1.00000000050 


„551115123217 76.938893904E717 4.163336342 
. 09000000020 8.3266726852 17  1.387778781E 17 
.3260726852 17  1.000000000£0 8.3266725852717 
.387778781bE717 В. 3266726852 17 1.000000000КЕ0 


5.551115123 
0,9388939085 17 
1.16333634 22 17 


юэ ол 


уйнш1Мм 


V 06085 Vil 
1 Їєйр1,(137«риюуж л )ро 
21 >(18710<4+/+/|I-üt, KU FEO. 25x Wt QE CY 


{Ural )*2)*0.5)/2 


Ho (+/5*2 )*0,5 ) + Ир (+/ 


Number 70 Conway's Game "Life", 


Jean-Jacques Duby 

IBM European Systems Research Institute 
40. Rue du Phone 

1211 Geneve 11 

Switzerland 


Lifegame implements Conway's algorithm as described in (1); 


Its main advatage is that the user will not have to assign arbitrary dimensions to the checker- 
board on which the organism grows: instead. the program itself takes care of padding the 
board with empty rows or columns if the organism tries to grow out of it, and conversely 
contracts the board when the organism gets smaller. 


Lifegame works with O. origin. Organism is entered by the coordinates of its constituent 
counters, row and column 0 being left empty. Normal program stop occurs at organism 
death. 


Reference: (1) Gardner M.; The fantastic combinations of John Conway's new solitaire 
cientific American, Vol. 223, Nr. 10 (October 1970). 

(2) Gardner М.; on cellular automata, selfreproduction, the Garden of Eden 
and the game “life”; Scientific American, Vol. 224, Nr. 2 (February 1971) 


VLIPFUGAUZUU]V 
V LÍIrzZGAUL КУБ: СЕЕ РТ 

111 Р<(2%(Г/ХГ2ха11),Г/Л11%2х11<-(рХ<.):21)о0е0,0р. ton TZ 
COORDINATES OF ORGAUIOU' 

L2] гэ ((оярд+2+Х) „РЕХГО ] 4011 )41)/ 007,27) 

[3]  uEXT:' OC P+ (OxieUtiitXe1 +P OdQ((0=4/(GC)L1 2)),0=+/(%9 
2311 2]))+г+өф@((0=+/5[1 2]),0=+/C[1 2134Р«((-(о231014 
3šs.[1]),-(p#)[1J+3sC[1])tF<(((pL)+3SL[ 2ер2еж/Р1), (оС 
)+35С[ 724042«4/101 Е1)391 

L4] ¿OOPX:Z+<1 

[5] L00PI:PLX;Y]*(/-3)vPDUX SY )^u ijv /* /Px (12 | Х- (рр) [0])°.х 
1217-11 (рР) [1] 

[oj *>((oP)[1]21+Y<Y+1)/LOOPY 

171 -((CoP)LO]21*Ze2*1) ,0z* /* /F)/ CLOOPX HEX?) 


EHTZn COORDINATES OF ORHGAGISÓX 


312/ APL QUOTE-QUAD 


1 12132223 


1 


№ 


a 


LIFEGAHELE] 


4 


Number 71 Synthetic Division 


Wally Greiner 


У 2+А CINTO B 

£11 Ze((C-pB)*2),C11((-0B)*(1-040)tB-*/(1-104)04e х (Ze Z4 B) 
8(2,2)*(1-12)0(8(Z2,04)04),[131(2,2*1*(pB)-04)00), (144 
+,4)p0),0O.51(-pB)tA 

[2] aCINTO STANDS FOR COMPLETELY INTO. 

[3] ATO SYNTHETICALLY DIVIDE THE LEFT ARGUMENT 

C4] a''COMPLETELY INTO'' THE RIGHT, ТУРЕ 

(51 a[QUOTIENT] + [DIVISOR] CINTO [DIVIDEND] 

[6] alQUOTIENT) IS А 3xN MATRICE WHERE N++p[DIVIDEND] 

[7] @ROW 1 IS THE POLYNOMIAL PART OF THE QUOTIENT 

[8] AROV 2 IS THE NUMERATOR OF THE FRACTIONAL PART OF 

L9] ATHE QUOTIENT, AND ROW 3 IS THE DENOMINATOR OF SAME. 

[10] AIN ALL CASES LEADING ZEROS SHOULD ВЕ IGNORED 

[11] APROGRAMMED BY WILEY GREINER 

[12] AT ORANGE COAST COLLEGE ON APRIL POOLS, 1971 
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Number 72 Graph 
John Clark 


VGRAPHLI]V 
9 S GRAPH БУХ 
111 ((2xpX)p 1 0)\' өзе "Г(Ре(%Х)2.-0)%1%2х0-(%Х)в.,хХ<5%0, 
1VE-S,0p +" F(X) ! ] 


у 
73 GRAPH 7 
F(X) 
n: w 
142х1Х-2 
° T LI 
* 
о + ° 
+ 
° ° 
+ 
+ 9 ° 
otok o o tot oot o4 
+ ° 
+ 
+ 
nA DEMO FOR PEOPLE WHO WEAR 'І LOVE BASIC! BUTTONS 
@PROGRAHMED BY JOUN В. CLARK 
AUSING THE RICHARDSON TECHNIQUE OF ENTERING THE 
AFUNCTION AFYER START OF EXECUTION 
Number 73 Conversion 
H. Fitzwater 


VDACD]V 
V N+B DA 41€; DE; F;R 

[1] пб 0 0 

[2J N+, (((1+В+С)р1),рро)\' 01234567891 ((ф(І [1094) е, 212)x1 
+1100. | До. #10*`1+8-184148], ("'ору!'.'),'0123456789' (( 
100, | (EILEXA+|A+0.5+E410%C)o. +10* 1+0-10+(Е+ 
2<р,В)х1+1+В,р+0х0<р+71+71+8) 

(31 6100,9) 

[3] я A PROGRAM TO CONVERT NUMERIC SCALARS, VECTORS OR 
MATRICES INTO A LITERAL STRING 

[5] я PROGRAMMED BY H. PITZWATER, GOLDEN WEST COLLEGE 

(61 #1+В IS THE NUMBER OF SPACES BEFORE THE DECIMAL POINT 

[7] a THE TOTAL NUMBER ОР SPACES PER NUMBER WILL BE +/B 


56. 
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23.456 2.34 0.4545 1234.3 


2 
39.39 12.345 2.34 
3.456 45.67 1.2345F 


332DAY 
23.956 2.340 0.455 235.300 


322DAZ 
99.99 12.35 2.34 3.46 45.67 12% 
120 DA X 
12 


23 2 0 234 


03 2 DAZ 
«390 .345 .3%0 „456 .670 „235 


3 12 РА 2 
100.0 12.3 2.3 3.5 45.7 1.2 


Number 74 Histogram 
John R. Clark 


VHISTEN]V 
V HIST Х.К: 
(12 ((2x1*0M)p о 1)N@&U<(0z+#t 'zH)/HI«(CCoR)01), (9% )00)/' 
0'[1+(-К)Ф((2ррК)о0), (2ррАе+# Хо. zi[ /X)p13 


oooo 
ooo 
ri: 


mA CORRECTION OF HISTOGRAM FOUND IN AN EMPTY WORKSPACE 
AAPL M VOL 2 NO 5 PAGE 8 


aPROGRAMMED BY JOHN R. CLARK 
57. 


58. 


pee Мас eee UN 
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Number 75 Curre Fitting 
John Richardson and Wiley Greiner 


VLEASTFITLD]V 

V 2«ГЕА5Т?ІС N 
[1] 2+Ф0805.*0,11 
[2] аРЕОСВАММЕр BY JOHN RICHARDSON 
[3] AORANGE COAST COLLEGE 8'71 


x 

1 2 3 4 5 6 7 8 9 10 11 12 
W 

711.035 71.995 11.045 34,085 73,125 134,165 
223.205 346.245 509,285 718.325 979.365 
1298.405 


LEASTFIT 5 


з 


x 


w 
72.6934357685716 7.849309326F 15 1 7% 14.04 
722.075 


УРОН 0] У 
V А+РОИ С;5 
[1] >2хрА“(“рМ"е(0-рС<Сх1,1-2х71%1%5<1%0>С0<(7141%(х1|С,1)/1 
14р,С)+С+0,С)/,О)рохС[ (16 1321С)/10с210 
72] *2x(pSc(-pCe(1t(x1*C,1)/1pC)*C)*5)2pA*0pl-(A» 
2)/A-p1t0-(4»12) /' X*' ,Ool]-C(C1215C) V124*0C) /1pC, of (0 
A)/73t12*'«- [145] 
[3] PROGRAMMED BY WILEY GREINER 
[u]  aORANGE COAST COLLEGE F'70 
у 


POV 20736 
2X*3 - 3X + 6 


POW LEASTFIT 5 


и 
X*3 - 4Х%2 + 14,04Х - 22.075 


— 
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| Number 76 


Sohn R. Clark 


VLPOLENIT 
V Z<LPOL Х.К 
[11 э3х11&К+(Хо,='()')+.х 1 71 
[21 >0,002+X 
[3]  Z«eXEK]1,CLPOL 14("1+K)AX),LPOL ~14(Ke( (XeOPR)xK+.x( 10K 
)е. S1oK)11) +X 
[u] а ГРОБ CREATES А РЕР FROM A FORMULA WITH PARENTHESES 
[5] ABOUT FACH OPERATOR, THE РРР FOLLOWS THR FORMAT 
[6] DEVELOPED ВУ LUKASTENICZ. 
[7] эРВОСРАММЕр ВУ JOHN В. CLARK 
[8] COAST COMMUNITY COLLEGE DISTRICT 


LPOL П+РАВЗ 
(((Рэ0)-0-(РАС-0))))50(-(РАО) ) (CP) v (90) ))) 
шіэРО-АР“0--АРОУ-р-с 


LPOL TI+PAR4 
(CCS28) & (R27) )3(827)) 
DASSRORTSST 


vPPOL(D]V 
V Z<FPOL Х;К 
[11 53xileK-(Xo.z2'()!)*.x 1 71 
r2] +0, 0р 7+Х 
[3] Z+( FPOL 14( 1*K)*X),CFPOL C 3+K4X),X[K<((XeOPR)xK+.x( 1 
pK)e.sioK)11] 
[u] а PPOL CREATES А РЕР РВОМ A FORMULA WITH PARENTHESES 
151 eABOUT EACH OPERATOR. THE PFF FOLLOWS THE FORMAT 
[61 @ASSOCIATED WITH PFF IN FORTRAN, 
[7] APROGRAMMED ВУ JOHN В. CLARK 
[8] aCOAST COMMUNITY COLLEGE DISTRICT 


FPOL П«РАНЗ 
(((PoQ)=(-(PA(“Q))))=((“(PA0))=((“P)v(“0)))) 
PQ2PQ~A~=POA~P~O~vs= 


FPOL П«РАЕЦ 


(CC828) A(R2 7) )э(5э7)) 
SR>ORT>AST>> 


Е“ 
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PROBLEM SECTION 

The last issue began what we hope will be a continuing feature in Quote-Quad. Your 

participation will ensure this. І encourage everyone to submit APL problems to this 

column. If you have a particularly succinct line of coding, unusual combination of 
operators or simply a problem which you would like other readers to tackle, then by 

all means. write to me about your ideas. As always, if you have a better solution to 

a problem, let me know. The only rule implied in all problems is that no named temporary 

storage is allowed. Also. unless otherwise specified, origin | will be assumed. 

l. Array Sort Problem: (William А. Blankinship. Annapolis, Md.) 

Given a numeric array А (1<ppA) ‚sort A along the last coordinate. For example if 
T+4+?2 3 4p10 
2 8 5 6 
3 1 7 7. 
10 4 6 9 
1 1 5 T 
1 4 Ji 5 
7 6 10 9 
the result should be 
2 5 6 8 
1 3 7 7 
4 6 9 10 
1 1 6 7 
1 $ 4 5 
6 7 9 10 
(Origin 1: 34 chars: origin O: 32 chars). 

200 Character Matrix Adjust Problem: (Al Rose, Scientific Time Sharing Corp.) M isa 
character matrix whose rows contain words of varying lengths. one word per row. 
The words however are not all aligned flush to either the right or left. There are 
two problems then: to right-adjust and left-adjust the words in the matrix (15 chars 
and 18 chars. respectively. in either origin). 

3 Dogenes Divide Problem: СА! Rose) The argument against 040 producing an answer 
instead of a DOMAIN ERROR. has not to my knowledge been put more succinctly than 
by Murray Spenser of STSC. To wit: we would like (A+3)4C++(A4C)+B4C to 
hold in APL. However. with A<B<C<0 it produces the unfortunate identity 1-2. 
Similiar anomalies occur with 0*0 . The problem then is to produce alternative lines 
of coding for the various svntaxes in which divide van occur that produce results as 
before, except the alternative form yields a DOMAIN ERROR whenever the usual form 
produces a value for 040 

The solutions for the last issue's problems follow 

60. 
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І. 21 This problem has been around for some time and needs no comment. Its origin is 
unknown. 


ә 


(А,В)[%4Р1 or (В,А)САЎР) . This problem and solution were incorrectly attributed 
to Ken Iverson who has since informed me that he learned of it from Luther Woodrum, И 
illustrates а beautiful and succinet use of the sort operators. Note the interesting relationship 
between the two solutions. Using this idea, Algorithm 48 in Vol. 11. №. 6 of this magazine 
can be shortened to 


У 2+А HZPZE R 
[11 >(ОрА-З),0рл// 
[2] Z+BLAYA] 

V 


3. чих ар"), Stp V 
хүү«-үх я (1рИ) о, Сір 


My solutions Гог all parts to this problem were similar and dilTered only in the operators used 
in the inner product. However. several readers pointed out that ANV and V\V have nine 
character solutions (тегс ШУ. they sent the solutions too), F. Vernon Griffith of White 
Plains. N.Y.. Garth Foster of Syracuse University. and Robert B. Roden of University of 
Waterloo each sent the following 


ANVex(1pV)«Vi0O 
м\ еж (ри) 211 


As Garth points out. the solutions are nicely interrelated since complementing the 0 or 1 
and complementing the relation produces the scan of the dual. 

Along these same lines. John Heckman of I. Р. Sharpe Assoc. of Toronto has а very general 
and elegant approach to scanning for several of the operators. His method allows the scan 
to be applied along an arbitrary coordinate of a multidimensional array. In addition it may 
proceed in either direction along the coordinate. 

For non-scalar arguments the algorithm for #\ [7] 15 as follows (it, in the funciton below 
J«0 .then the scan proceeds from the end of the coordinate to the beginning): 


V Bed APL ХИ 
Ei Xe(Oa)x(d-|J)zipNe-CxJ)xpZeX 
121 Z+Z+N+tX+Z 


131 *>2x(|N[Jl)>|(X+<2xX)[7J 
v 


4. This problem was devised by William Blankinship of Annapolis. Md. It was originally solved 
by Norman Glick of Columbia, Md. under the rules of the old XMI release as follows: 


Сакем) Г, х= CoM dol 74 


This solution was also found by E. Vernon Gritfith who came up with an even shorter one 
that takes advantage of one of the extensions in the new XM6 release of APL/360: 


1+L2e@21əM=(pM)p[ 7M (origin 1. 18 characters) [n origin 0. delete the '1+' 

(16 characters). 

All these solutions have the fault that if there are duplicate maximal! elements in a column, 
they return the subscript in that column of the last occurence of that value instead of the first. 


5. This problem was incorrectly published as having two solutions. 11V is the only one І know 
of. 


61. 
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As there were two solutions indicated for this problem some doubt might have crept into the 
minds of those who thought - 11V wasa solution (though perhaps not. considering the 
last problem». In reality the two solutions are but one: Tisy or 71181 . The first 
was found by Norman Glick. 


For the longest time after devising this problem, I believed thirty characters to be minimal. 

Then my colleague Peter Seeviour of Silver Spring. Md. found this 26 character origin | solution: 
1%8(2,217)р71%4,01(107)9.-1/7 

The origin 0 solution omits the 11%". The proof behind this solution is fairly straightforward. 

Like the fourth problem, this one was conceived and solved under the rules of APL/360 (XM1). 

The XM6 version permits another origin 0 solution in the form of 


ROM MIT C2IM DAG CN ood 
A similar solution was found by Robert B. Roden. 


OLV This problem. like the fifth and sixth ones. was included simply to increase the reader’s 
appreciation for the decode operator. Under no circumstances do ! recommend that these 
solutions be used instead of the more common expressions. 


This problem admits to more solutions than I had first thought. МСА САУ) лара is 

one possibility but the middle dyadic iota can be replaced by one of several relational operators 

(it may be necessary to change the direction of the sort) to obtain equivalent solutions. It can also 
be replaced by minus as was pointed out by Robert B. Roden. 


Note that it is shorter to simply reorder the whole word so that the different letters are first in the 
reordering (in the order in which they occur) rather than to shorten the word to one without any 
duplicate letters. 
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LAST MINUTE NOTES: 


Please examine your mailing label, Immediately following your name is a 
number , the integer portion of which indicates the volume and the fractional part 
the number beyond which you will no longer receive the Quote Quad. That is why some 
of you are receiving this sheet only. 


Because the size is about fifty percent greater than what we anticipated the 
size of an issue in this volume to be, we are calling this combined issues 2 and 3, 
and we will make all efforts to extend the number of issues by one to five for the 
volume, 


At the production end of things we have added to the delay in getting this issue 
to you. Evidently, our production items increase more than linearly with the number 
of pages. 


Within the year, we hope to have a more formal arrangement worked out. 


Begin to think about possible papers for the next APL workshop theme for which 
will propably be education. 


I enclose Ü $3.00 (U.S., Canada, and Mexico) D $6.00 (elsewhere) to be considered 
as a D new П renewed contribution to support Volume 3 of the APL Quote Quad, 


Name 


Address 
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oH ў: activities March 6 - 10, 1972 will take place at 


the San Francisco Hilton. The APL project will meet in committee 
on Monday. 

A full day tutorial on APL and its terminal system will take 
place on Tuesday, March 7. IBM will sponsor this and they have top 
people on tap for this (Bill Bergguist and Ev Allen). If you know of 
anyone having IBM equipment who needs to be sold on APL get him 
(or her) to show up in San Francisco for this tutorial. IBM sales 
types reading this - note that here is a chance to have a prospect for 
the program product find out what first hand what is all about. Other 
APL project meetings will be: 

A Formal Description of APL - Dick Lathwell, IBM 
APL (CMS) - Michael Crick, IBM 
APL Implementation and Efficiency of Execution - A. Hassitt, IBM 
User Enhancements to APL - L. Breed, Scientific Time 
Sharing Company 
J. Enfield, The Computer Company 
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editorial 


Whats new in APL? Now that file systems are not only a reality but a 
proven successful reality the next most interesting development is probably 
the APL compiler. However. apart (тот a few odd comments, not much 
has surfaced. Who is working on it and how far have they got? We 
would like to hear from anyone working in this area. 


Deadline date for the next issue is Monday 27th March 1972. 


CONTEST 


Many people have requested IBM to allow user defined functions in the 
composite lunctions. There must be some good examples to tustify this 
extension. One example sent by J. C. Wilson of the University of Toronto 
Computer Centre is F/V where F is defined by 


Send entries to the Editors of Quote-Quad for the best example justifying 
user defined functons in composite functions. 


Entries should charly demonstrate elegant solutions from use of the extension. 
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Computer Innovations of Chicago has developed its own РЕКТ/СРМ package 
in APL which is available to all its timesharing subscribers. Networks of over 
150 nodes may be analysed and the package is flexible in the type of output 
available. 


The electrical engineering package MARTHA developed by Dr. Paul Penfield 
is now available through APL Genera! Inc. of Trenton, New Jersey. 


The Computer Company of Richmond, Virginia will provide full support for 
terminals using ASCH coding and terminals operating at up to 30 characters 
per second by the first quarter of 1978. 2 


The Computing Centre, University of California at Riverside, California 
92502 have made a number of additions to APL which are listed below. 
Anyone interested should write to Terry F. Mellon. 


UCR CHANGES FROM USER’S VIEWPOINT: 


1. 2 Backspace characters: Overstruck “В” and ‘S’ 
Overstruck tet and '+' 


M 


A linefeed character: Overstruck '+t and '_ t 


3. 5 new I-beams 
130 returns port number 
131 returns first 3 char’s of your name 
132 returns ws quota (not counting continue) 
133 returns ws saved (not counting continue. but counting public) 
41130 bounce your port (identical to )continue) 
4. De-privileged ws-relative fetch and store 


UCR CHANGES FROM A OPERATOR’S VIEWPOINT: 

1. АП those which are apparent to a user. except being able to bounce 
himself. 

2. 135 returns CPU time (in sec x 300) used by all users who have signed 
off since the beginning of this session. 

3. 136 returns connect time same as above. 

4. 14ISTART.INCR (where‘START’ and ‘INCR’ are times in sec x 100) 
sets a starting time and an incremental time for the counting of the 
maximum number of users signed-on. After an increment is passed, 
the maximum number for that time period is stored; up to 50 stores 
will take place. 

5. 134 vector with the values stored by 141 


Pisa, Italy was the site of the “Convegno sul Time Sharing”. sponsored 
jointly by the Centro Nazionale Universitario di Calcolo Elettronico 
(CNUCE) and IBM italia, the 28-30 October 1971. This technical 
meeting was aimed at introducing the concepts and possibilities of time 
sharing to potential users in Italy. 
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It was quite fitting that Pisa was chosen as it is the home of the CNUCE, 


one of the oldest and most active computer research institutes in Italy, as 
well as the location of an IBM Scientific Center. 


Although most of the attendees were Italian, there were several speakers 
from the United States and France. Topies presented included the “classical” 
systems: TSO, CP-67, CMS. ITF. CALL/360. There were also discussions 

of implementation problems for time sharing. as well as of management and 
economic implications of time sharing. 


APL was presented by Philip Abrams. Despite the usual technical problems 
with closed-circuit television. there much interest in APL shown by the 
group. Demonstrations were made using APL-XM6 running under CP-67 on 
the CNUCE's 360/67. 


Other speakers, Including Norman Rasmussen (IBM) and Prof. Bruce Arden 
(University of Michigan) had kind words for APL. During his closing talk 

on "Prospettive di svi Juppo dei sistemi Time Sharing", Rasmussen stressed 
the importance of programming language for time sharing. He then proceeded 
to explain why APL was the best such language to date and why APL, despite 
implementation problems. is likely to be the best candidate l'or the future. 


The APL Service of Cegos-Enformatique has recently upgraded its hardware 
and software, thus making it the most advanced APL installation in Europe. 


In September 1971, their 360/65 was replaced by a 370/155. With the 
increased size of the new machine, 47K workspaces are now standard, The 
most recent system improvement is the installation of the APL-Plus 
enhancements and File Subsystem. using the program products of Scientific 
Time Sharing Corporation. Cegos is currently the only APL Service in Europe 
to offer a file system. 


For further information or for documentation (in French). please contact: 
Philip S. Abrams 

Cegos-Informatique 

Service APL 

14. rue Anatole France 

92 « Puteaux, FRANCE 


From the report of the Paris Conference. it appears to have been a successful 
one. Proceedings are being published. 


The Coast Community College District is currently evaluating a programable 
microfiche projector to be used in conjunction with computer assisted 
instruction segments. The unit. developed by Image Systems, Inc.. 11244 
Playa Court. Culver City. California, 90230, allows a simple APL function to 
call for the display of any “frame” from y randomly selected fiche stored 
in the system. The hardware interface consists of a black box stored within 
the microfiche display unit and a male female plug inserted into the normal 
fittings between the acoustic coupler and the terminal. 


A total of 750 microfiche may be stored in the unit. Each fiche has a binary- 

coded metal clip attached along one side. The clip is used to identify the fiche. 

Fiche may be retrived in a random fashion under program control or manually. 

The maximum retrival time is about three seconds. Repositioning time. moving 
3. from frame to frame, is about one tenth of a second 
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DOMINO - An APL Primitive Function for Matrix Inversion — - Its 
Implementation and Applications 


M. A. Jenkins 
Queen’s University 


1. Introduction. 

The power of APL has recently been expanded by the addition of the matrix 
divide primitive. В (verbalized as “domino™ which can be used in many 
linear algebra computations. For example the one liner 


ReY-YP-Fe.xA-YBF-Xo.*1 0 


computes the parameters, A of the straight line which is the best least square 
fit of the data stored in the vectors. X and Y . and computes the predicted 
values. YP and the residuals В. I will explain this use of В when I discuss 
applications. First І would like to describe the development of B. . both the 
rationale behind the notation in which it appears. and the trade-offs made in 
its implementation. 


2. The notation for the matrix divide primitive function 


A very common problem in numerical computing is the solution of sets of 
linear algebraic equations. И was felt that the addition of a primitive APL 
function which aided in the solution of this problem would improve the 
expressive power of the APL language and increase the computational efficiency 
of many algorithms. A set of linear equations is most simply represented in 
matrix notation. For example, the equations 


3X, +2X, +5X,= 18 
х, -3х, < X47 -4 
2X * х, -3Х;= 5 


аге more compactly written as 
(2.1) (At.xX) = B 
where Á is the matrix 


3 2 5 
i 73 71 
2 1 “з 


В isthe vector 18 "4 5. and X is the vector of unknowns, The inner 
product operation *.* is normally omitted in mathematical notation, however. 
we will include it here, so that all our expressions will be in APL 


Equation (2.1) can be solved by multiplying both sides of the equation by the 
inverse of the matrix А. We will denote the inverse of A by BA ‚а notation 
which parallels that for the reciprocal of a scalar, namely #5 . The inverse 
matrix satisfies the identities 


February 10, 1972 - Vol. ІІІ, No. 


4 /39 


= 


((ША)+.хА) = I 


(А+.х А) = Т 


where T is the identity matrix of the same size as A Multipiying (2.1) by 
BA. we have 


((@А)+.х(А+.хХ)) = (BA)t.xB 


and since inner product operations are associative we have 
X = (BAM .хВ 


Thus one could get by with just a monadic primitive function in APL which 
finds the inverse of a square matrix. However, this has not been done because 
a better approach is avails А set of linear equations can be solved directly. 
without computing the inverse matrix explicitly. with about one-half the work 
required if the inverse is used, This is done by reducing the given equations 
to an equivalent set where the matrix of coefficients is triangular. . the 
equations 


(А+.хХ) = B 


are replaced by an equivalent set 
(U+.xX) = Y 


where — is upper triangular. The advantage of the triangular form is seen trom 
а 3 x 3 example. 


i р 
11 біз “13 x Yi 
92-45. Bye х, | = у, 

0 
Ў. 2833 5, Y 


The third equation has become 


зах. = ti 
which can be solved for Xa. The value of X4 can be substituted into the 
second equation and the value of X, obtained. The value of X4 can then be 
found from the first equation using the values of X, and X4. Notice that in 
reducing the matrix A to U . the right hand side B is transformed to Y. 
Thus it is convenient to consider this as an operation which has two arguments 
А and B „and the notation 


ВВА 


has been adopted Гог the operation which solves the set of linear equations 
(2.1) directly. This notation suggests that the solution is obtained by "dividing" 
the right hand side of (2.1) by the coefficient matrix. It parallels the scalar 
notation 

TBS 
where the divisor is also to the right of the symbol. Note that the svalar identity 


+8 ++ 1:5 


— 
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is also paralleled in that 


BA +> IBA, 


where I is an identity matrix of appropriate order. 


3. The implementation. 


The decisions on how best to implement the matrix divide primitive were greatly 
affected by the environment in which it was to be used. Every routine in the 
APL interpreter is core resident and it was important to keep the code for routine 
to a minimum. This suggested that a single algorithm with the widest applicability 
was a better choice than two or three algorithms for separate cases. The 

APL interpreter uses the long precision as the standard way of calculating 

and as a result any algorithm which requires extra precision for part of the 
calculation would require expensive high precision simulation on most 360%, 

The APL user was also an important factor. It is a safe assumption that the 
average APL user has little or no training in numerical analysis and it is 

unlikely that he will be able to detect difficulties which arise due to 

numerical instability in his use of BJ . Thus an algorithm must be used which 

is as accurate as possible and which will detect when the given matrix is 
essentially singular (i.e. equations do not have a unique solution). A final 
consideration was that to be consistent with the philosophy of APL, the 
algorithm should be as general as possible, not restricted to square matrices. 


There are two algorithms which were contenders for use in В : Gaussian 
elimination and Househoider's orthogonal decomposition. In Gaussian 
elimination one reduces the original system to a triangular one by the 
systematic elimination of variables. In matrix terms this is equivalent to 
finding a pair of triangular matrices д and ў such that 


(L+.xU) = А 

The system 
(At.xX) = B 

is then equivalent to the pair ot systems 
(L+.xY) = B 


(И+.хх) = Y 


which are solved in turn for Y and X . This algorithm is carefully analyzed 
by Forsythe and Moler (2). They recommend it highly for use as a standard 
library program for solving linear systems as it is the fastest algorithm available 
which generally gives good results. However I did not feel it was the best choice 
for the matrix divide operator. First, the elimination algorithm with row inter- 
changes as described by Forsythe and Moler is not guarantced to be stable; 
Wilkinson (6) gives an example for which it fails completely. Although such 
failures would be extremely rare, there would be not warning to the user that 
one had occurred. Secondly, Forsythe and Moler recommend using double 
precision arithmetic with iterative improvement to improve the results of the 
algorithm and to detect singularity. The need to simulate such a calculation 
as noted earlier reduces the speed advantage of this algorithm which is its only 
advantage. A final consideration is that the elimination algorithm does not work 
for an over-determined set of equations as does the orthogonal decomposition 

6. algorithm. 


Ж ul 
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In Householder’s orthogonal decomposi 


ол algorithm one reduces the original 
system to a triangular one by multiplying the matrix of coefficients by a 
sequence of elementary orthogonal matrices. An orthogonal matrix is one 
which has its transpose as its inverse, ie. 


(P+.xQP) = I 


И W is any vector of unit length then the matrix 


P = I-QxWo.xW 
is an elementary orthogonal matrix (and multiplying by such а matrix is 
called a Householder transformation). By suitably choosing the elements 
of W one сай use а Householder transformation to remove the non-zero 
vlements of the first column of the trix below the diagonal element. 
Repeated application to submatrices results in a triangular system of 
equations, [n effect what one is doing is finding a pair of matrices Q and 
R such that 


(Q+.xR) = A 


where Q is orthogonal and Р is upper triangular. The system 


(AtıxX) = B 
is then equivalent to the pair of systems. 


(Qr.xZ) = B 


CR+. xX) 


2 


which are solved in turn for 2 and X Phis algorithm is analyzed by 

Wilkinson (6). Их major advantage is that it is completely stable. There 

is no danger that it will produce a completely incorrect answer unless the 

coeflieient matrix is essentially singular. Singularity is more casily detected 

with this algorithm and one cin avoid the need for double precision calcul- 

ation. In my opinion these advantages outweigh the fact that the algorithm 

requires roughly double the work of Gaussian elimination. 1n addition the 

algorithm is easily generalized to handle over-determined systems of equations. 

it pA is M,N with M2W then the orthogonal decomposition algorithm finds the 
value of X such that 


+/( (At. X) -B) *2 


isa minimum. Ú M = М the minimum is zero and we obtain the exact solution 
of a set of M equations in М unknowns. И M > N then we find the value 
of X which is the least squares solution of the over-determined set of equat- 
ions. A complete discussion of the algorithm to solve linear least squares 
problems can be found in Golub (3) and the ALGOL procedure is given in 
Businger and Golub (13. In implementing the algorithm | have included the 
column scaling and row intere г suggested by Powell and Reid (5). 
An APL simulation of the operator is included in the discussion of fj. in Jenkins 
13 


4. Applications of B 
ta) Solving linear systems of equations. Given a set of linear equations 


(At.xX) = B 
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to be solved for X , the solution is obtained by 

Х+ВВА. 
If several sets of equations with the same coefficient matrix but different right 
hand sides are to be solved, then this can be accomplished in one step by storing 
each right hand side as a column of a matrix BB and executing ХХ«ВВВА . 
XX will be a matrix of solutions. each column being a solution of the set of 
equations with the corresponding column of BB as the right hand side 
Examples 

A DATA 


a SOLUTION 
BEA 
321 
в VERIFICATION 


A+.x3 2 1 
18 78 5 


а ТРО RIGHT-HAKD SIDES 


ЕГ 
18 31 
7, 75 
5 1 
BRIA 

3 4 

2 2 

1 3 


Note that is the identity matrix is used as a set of right-hand sides, the 
matrix of solutions is the inverse of the coefficient matrix. Thus the identity 


ВА +> IBA , І an identity matrix 
holds; indeed the monadic form of 8 is implemented by constructing an 
identity matrix and calling the routine which implements dyadic gi . Thus 
it is much more efficient to use the dyadic form 
8. (42) BBA 


Ë As 


— 
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rather than the monadic form 
(4.2) (ВА) +. хв 


when solving a system of equations. For example. on а 20 x 20 random 
matrix (4.1) requires .87 seconds or CPU time while (4.2) requires 
seconds. Moreover the dyadic form very likely produces a more a 
answer, 


Table 1 illustrates the time advantage that has been gained by implementing 
the matrix divide operator. If we assume most of the use of the INV function 
in 1 ADVANCEDEX was for the solution of a system of equations, we see 
that the savings is a factor of 10. The savings in finding the inverse is a 

factor of 4 or 5. Notice that for matrices of order 15 or larger one can find 
the inverse faster than one can multiply the matrix by one of the same order. 


pA Time in seconds 
ВВА (INV A)+.xB ША INV А It.xA 
— 
5 05 .53 407 ‚52 .05 
10 2 T7 ‚35 1.8 -28 
15 4 4.7 95 4.8 1.0 
20 9 9.5 251 9.3 2.% 
25 4755 16.4 3.9 17.6 4.3 
30 2.5 30.0 6.4 28.6 8.2 


Table 1. Execution times 


b) А specific application. The matrix divide function can be used to do 
interpolation in APL. Let X be a vector of values and Y a veetor of 
function values for some function at the points in X We are to find an 
approximation of the function value at come point ХХ notin X . We 
proceed by using to construct the coefficients of a polynomial which 
passes through all the data points and 4 to evaluate the polynomial at. XX 
For each Xi in X the polynomial coetficienis ау, agr». ‘ал satisty 


n-1 n-2 
1 * " +... та ж Т 
aa а п і 
where n = pX. Thus the coefficients are determined by the system of 


equations 
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п-1 п-2 
Хү X 8524 Y 
п-1 n-2 
X5 х, 1 2 Y, 
\ . Я 
1 п-1 n-2 
\ Ха Xa 1/ I 


We may obtain the coefficients of the approximating polynomial by the 

expression 
A+YBXe.»b 1+\рХ 

or we may evaluate it at XX directly by the expression 
ХХІҮВХо.жф 1+1рХ 


As ап example consider interpolating the function 


f(x) = sin x 
at x = .223 given the values at .l1 .2 .3,..., 1.0. 
Х<.1х110 
Y+10X 


„22347@Х°.*ф 1+upX 
0.221156329 


10,223 
0.221156322 


bb) Use in finding eigenvectors. An excellent technique for finding the 
eigenvectors of a matrix is to use inverse iteration. This technique involves 
the solution of the “nearly” singular system of equations 


CCA-LxI)*.xX) = U 


where Z is ап approximate eigenvalue of А . 
Т is an identity matrix, and 
U is an arbitrary vector. 
The solution X should then be scaled in some way. 
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а EXAMPLE 


A 
1 0 1 
1 0.7778 0.3333 
70.0252 0.5556 70.2252 
0.8889 78.6667 0.1111 
L 
0.3333 


X<1 1 1 1HA-Lx(i8)o.ziu 


XeXi[/ iX 


aVERIFICATION 


[/1(;xX)-A+.xX 
0,026717u77u3 


The only difficulty that may arise is if Z is too close to being an 
eigenvalue. In this case à DOMAIN ERROR may occur т В . Modify 
L by about 1E 13 in this case to avoid the difficulty. 


€) Accuracy of the solution of linear systems. Before discussing other 
applications of В ‚1 should mention the inherent numerical limitations 
of В. Associated with every matrix there is a number, called the condition 
number, which measures the sensitivity of the solution of a linear system 
involving the matrix to the unavoidable round off errors of the computation. 
An ill-conditioned matrix, ie. one with a large condition number, will 
produce solutions which are accurate only to a few digits. whe well- 
conditioned matrix will produce solutions which are accurate to almost 15 
digits. For example, the 10 x 10 Hilbert matrix generated by 


He:(110)o. +110 


has a large condition number. We can analyze the accuracy obtained by 
generating a linear system with a known solution and examing the difference 


ГИ (110)  CHr x 1100) НИ 


0.0008437338631 


Thus the solution is in error in the fifth digit. Comparing with a random 
10 х 10 matrix 


44:210 10920 
[/i(110)-(A+.x110)5A 


1.1768364065714 


—__ 


"ooo 
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we sec that a well conditioned matrix can achieve almost full accuracy. If 
a matrix is so ill-conditioned that it produces no accuracy in а solution then 
it is essentially singular and will cause a DOMAIN ERROR when used with B. 


d)  Inverting a matrix. We have discussed earlier that most calculations of 
the inverse matrix can and should be avoided. Any expression of the form 
(В exp 1)*.x exp 2 
should be rewritten as 
(exp 2)B exp 1 
However there are cases in statistical computation where the elements of the 
inverse of a correlation matrix are needed to compute certain quantities. 
Such calculations may now use the monadic form of B) instead of a matrix 
inversion function such as INV or INVP in the standard workspace | 
ADVANCEDEX. 
€) Linear least squares problems. 
Many of the calculations of statistics can be expressed as linear least squares 
problems. That is, they involve the estimation of parameters ар, 
which occur linearly in some model to be fitted to data. i.e. 


у = аі, (x) + a,f, (x) +...а f, (x) 


алей, 
2’ S 


where =, £5 yo f, are functions of a single variable or functions 
of several independent variables. The maximum likelihood estimate for the 
ар s is given by the least squares solution of the over-determined equations 
which, in matrix form, are 


f, (x) falx) ... f, бай ар yj; 
\ 

f, (x2) £5 (x3) fa (x,) | a, Y2 

fi (x f, (xq f, 129) а, Yra 


If the matrix is denoted by F and the observed data by У. the vector of 
parameters A can be found by 


A+YEF 


In particular, the example of the Introduction is a special case of this use of 
B . The model function is a straight line 


у = a,x + a 


and we are trying to find the best estimates or а; and а, from given data 
X and Y . The matrix Р in this case is 
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X 1 
x 

2 1 
Km 1 


which can be generated by 


Хо. *1 0 
and hence 


A-YBXo.*1 0 


finds the parameters ay and a If we save the coefficient matrix in F then 


2: 
YP<F+.xA 

gives the predicted values trom the model, and 
R<YP-Y 


gives the residuals. Hence the one-liner 
R+Y-YPeF+ .xA+YAP+Xo .*1 0 
computes all the required information. 


This can be easily generalized to do a curvilinear fit with a higher degree polynomial. 
To fit an yth degree polynomial one would use a coefficient matrix 


РеХо. фо, N 
Similarly, multiple linear regression can be accomplished easily with 8. If Р 
is a matrix of the form 


1 хі Xi cee Xim 


21 Хур *** Хор 


1 Ха *n2 Хаш 
where хі is the value of the zen variable at the а observation then 
A<YBX 
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gives the parameters of the linear regression model 

y= ay + ах] + ах; Ж“... +15 
Note that nowhere have we mentioned forming the normal equations of the 
least squares problems. An alternative method for solving an over-determined 
system of equations in the least squares sense is to convert the system to a 
square one by multiplying both sides by the transpose of the coefficient matrix. 
The resulting equations for the unknown parameters. A 


(((&F)+.xF)+.xA) = (QF)+.x¥ 
are called the normal equations. This is the standard way least square problems 


are posed in many books and a common misuse of В is likely to be people 
using the formula 


((&FP)+.xY)B(8F)+.xF 
or even 
(B(ORF)t.xF)* .x(RF)*.xY 


instead of 

ҮЕР 
Table 2 shows the results of timing and accuracy measurements comparing 
the use of the normal equations and the use of the orthogonalization 
algorithm directly on fitting polynomials to a large random data sample. 
The table illustrates the advantage of the orthogonalization algorithm over 
using the normal equations. Besides being roughly twice as fast, the 
orthogonalization algorithm is considerably more accurate. The normal 
equations become very ill-conditioned as the degree increases and for 
degree greater than 10 are essentially singular. Notice that a small res- 
idual is no guarantee of the accuracy of the solution. 


5. Conclusions 


The B] primitive has extended the power of APL, both in execution speed 
and the ability to express algorithms simply. {t has been implemented 
using up-to-date techniques in numerical analysis and provides the user 
with an efficient reliable tool of wide applicability. It is my hope that APL 
enthusiasts will explore the uses of Ë) and report new and better ways of 
solving interesting problems. 


И C(8F)+.XY)B(QF)+,xP 
Residual | Time |Error [Residual 
К... + 
1 | 0.15] 52715 0.28 12714 
2 | 0.25 | 42718 0.38 12713 
3 0.42 | 25713 0.57 uE 13 
u 0.88 | 82713 1.32 6E 13 
5 | 9.68 28712 1.18 87-13 
6 [0.87 | 15710 2.10 z 
7 | 1.03 | 6Е710 1.85 
8 | 1.33 | 3879 2.57 
9 1,75 | 2278 2.87 
10 1.95 | 1277 4.18 | 271 
11 2.25 | 7Е77 DOMAIN ERROR 
ee Tu ей 
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Table 2. Fitting potynomials. 
Х+( 210021000) +1000 


Y generated from polynomial whose coefficients are 1+1 
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Indeterminate (0+0) Check In APL 


C. Pettus 

Systems Development Division 

IBM Corporation 

Endicott, N.Y., 13760, P.O. Box 6 


Abstract 


One unique feature 12 of the APL system is the definition (020) = 1. 
Although there is obvious merit in this decision, in real analysis (0+0) is 
indeterminate. If one wishes to be alerted to the fact that a denominator is 
zero and does not want the result 1 if the numerator is also zero, one can 
replace the expression 


x+y 


with 
Х ха У 


Then if X and У are both zero, а Domain Error will be reported instead of 
yielding 1. 


The purpose of the next example is to demonstrate clearly that 0+0 is 
indeed indeterminate and then show that an indeterminate can occur unsuspectinely. 
As and example 


tet 
X-Y-1.6E17 12 8.4630 “57 


then the execution of the expression: 


| ((X*2)-Y*2)*X-Y | 
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- 


gives! 
$1 31:21 

Clearly the above expression can be written as: 
OrsY)x (x-Y)*x-Y 

Now the answer is: 
3.2E17 2% 1.68E 29 7114 

To alert us to this possible catastrophe we can use the indeterminate check: 
((*2) -Y*2)xX-Y 


The computer will then respond with: 
DOMAIN ERROR 


((X*2)-Y*2)xtX-Y 
^ 


Recommendation 


It is recommended that a system command be incorporated to permit a 
divide by zero check. if such is desired. This could be achieved by providing 
the command: 


)DIV 0 

The system would respond with: 
WAS 1 

To return to the normal condition where (0—0) =]. provide the command: 
)DIV 1 


References 


1. $. Pakin, APL REference Manual. SRA (1970). p. 20. 


2. L. Gilman, and A. Rose, APL/360: An Interactive Approach. Wiley & Sons 
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APLISP: A Simple List Processor in APL 


K. W. Smillie 

Department of Computing Science 
University of Alberta 

Edmonton. Alberta 


This note gives a brief description of a number of APL functions which implement 

a simple list processor somewhat similar to LISP. As the reader is expected to have 

some familiarity with LISP, only a few preliminary remarks will be given here. 
Introductions to LISP may be found, for example, in “List processing” by P.M. Woodward 
in Advances in Programming and Non-numerical Computation by L. Fox (Pergamon, 1966), 
and in Recursive Techniques in Programming by D.W. Barron (Macdonald, 1968). 
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А list is an arrangement of atoms which are considered to be indivisible objects and | 


are represented by any combination of symbols. Thus, A, Band ALISON are atoms. 

A simple list is a linear array of atoms separated by commas and enclosed in parentheses. 
for example, (А, В, С. D) and (A). A list structure is a list whose elements are atoms, 
simple lists, or lists. For example, (A, (B.C), (D. (ЕЭ is a list of the three elements A 
an atom, (В.С) a simple list. and (D, (E)) а list. Also. ((САТ)) is a list whose first 
element is a one-element simple list (CAT) consisting of the single atom CAT. 


In APLISP atoms and lists are represented as character vectors, Atoms may consist of 
an arbitrary number of characters other than ( ) and .. The atom NIL is reserved for 
the result of removing the first element from a one-element list. 


The following table gives a description of the functions available in APLISP, and is 
followed by a listing of the functions: 


HD ReHD X 


if X is a list, R is the first element or head. 
if X isan atom, Р is the empty vector. 


HD1 Required in HD 
TL R+TL X 


it X is a list, Р is what remains when the head is removed. If X is a one- 
element list, R is the atom NIL. It X is an atom, R is the empty vector. 
CONS R+X CONS Y 


H Y isa list, R is the list formed from Y by inserting X as the new first 
element in front of the elements of Y . If Y is the atom NIL. А is the 


list X). Thus. ир X CONS Y e» X 
TL X CONS Y < Y 


I Y is not a list or the atom NIL, Я is the empty vector. There are no 
restrictions on X 


ATOM R+ATOM X 

If X is an atom, R +> i ¿otherwise В <> 0 
NULL R<NULL X 

H X is the atom NIL, В <> 1: otherwise R +> 0 


EQ R+X EQ Y 


If X and Y are the same atom. R +> 4 vif X and Y are different atoms, В — 0 
otherwise R is the empty vector. 


EQU ReX EQU Y 


If X is an atom or a list and У is an atom, then Ё «> 1 if X is the atom У, 
and A <> O „otherwise. if Y is not an atom. R is the empty vector. 


EQUAL Е«Х EQUAL У 


ЇГ X and Y are either the same atom or identical lists, Я +> 1 : otherwise 


Я «+0. | 
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COPY 


ReCOPY X 


If X is any atom ог list, В <+ X. 


APP 


R+X APP Y 


If X and y are lists, R is the list obtained by the catenation of the two lists 
X and Y ; otherwise. R is the empty vector. 


REV 


R+REV X 


If X is a list, R is the list obtained from X by reversing the order of the 
elements. If X is an atom, R is the empty vector. 


REVi 
NUM 


Required in REV 
R+NUM X 


If X іза list, R is the number of non-null atoms in X . 


equal to 1 or 0 


PLAT 


R+FLAT X 


If X is an atom, R is 


‚according as X is non-null or null, respectively. 


ИХ is a list, А is a simple list whose atoms are the non-null atoms of X in 


the same order in which they occur in X . 


vector. 


FLAT1 Required in FLAT 


JOIN 


R+X JOIN Y 


If X and Y are arbitrary atoms or lists, then 


[2] 
£31 


113 


УНр(03У 
R+HD x 
В+1+(Н01 Х)+Х 


vAD1ıLD)V 

R+HD1 Х;А 

>(( RO), 2 3)[1++/'('=2+X] 
>+0,R+"1+(Xet,)")ıı 


If X is an atom, 2 is the empty 


Ве<1%(11%((ір4)о.>ірА)ж.хА<--/Х9,-%()%9)11 


vTL[OJV 

Re7L X 

»2x0#pR+HD X 
эЗхА/(Е«1(!,((2408)-0Х343)6"0)" 
Re ВІ! 


vCONSUUJV 

R+X CONS Y;V 

-((ATOM Y)AVe~NULL Y)/O,R«10 
Ret (C XCU/1 ,1 3 34), 2! 


vVATOMEUJV 
R-ATOM X 
Re!('z14X 


[3] 
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VNULLIOJV 
R+NULL X 
He(3zp,X)^^A/' NIL'-3*X 


vEQLDIV 

R+X EQ Y 
»(v/'(*si25X),11Y) /0, R10 
Re((p,X)=p,Y)aa/ 1 1 &(,Х)°.=,У 


vEQULD1V 

ReX EQU Y 
ATOM Y)/0,R«10 
>(“R+ATOM X)/0 
Rex EQ Y 


VEQUALED1V 

R-X EQUAL Y 

+ 3 2[1+АТОМ 71 

>0,R<Y EQU X 

эцхЁетАТОМ Y 

Re((HD X) EQUAL HD Y)A(TL X) EQUAL TL Y 


vCOPYLO3V 

R<COPY X 

+2+-АТОМ X 

>0,рР<Х 

R+(COPY HD X) CONS COPY TL X 


УАРРЕОЗУ 

ReX APP У 

>(((~NULL X)^ATOM X)V(~NULL Y)^ATOM Y)/0,R«10 
+*3+=NULL X 

-0,0R«-COPY Y 

R+(HD X) CONS(TL X) APP Y 


УЕЕУГ119 

R+REV X 

>(ATOM X)/0,R«10 
ReX REVI 'NIL' 


VREV1LD]V 

ReX REV1 Y 

»2+-NULL X 

-0,pR*COPY Y 

R+(TL X) REVi(HD X) CONS Y 
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VNUMLLIJV 
V ReUUM X 
C13 23x (“ATOM X 
[2]  »0,R--NULL X 
(32 R+(NUM HD хузрим TL X 


VFLATLOIV 
V R4FLAT X 
111 *(ATOM X)/0,R«10 
(21 R+X FLATI 'NIL' 


VFLATILOIV 
У ReX РГАТ1 Y 
{11 + s 3 2114(АТОМ X)+FULL X) 
[2] э0,рЁ+СОРУ Y 
(317 эо,рР+Х CONS Y 
Сај  R+(HD X) PLATiCTL X) PLATA Y 


VIOINLOIV 
V ReX JOIN Y 
[Uy Heke et 
ç 


COLLOQUE APL: Paris. September 1971 


Phillip S. Abrams 
Lawrence M. Breed 


September, in Paris. is one of the loveliest months of the year. The weather 

is warm and clear, with no hint of the winter to come. The tourists have left 
with the end of August and Paris is once again populated with Parisians. Paris 
was thus a perfect setting for the APL Conference/Colloque APL on the 9th 

and 10th of September 1971. At the Maison Internationale des Chemins de 

Fer, in the direct shadow of the Eiffel Tower, over two hundred people gathered 
for two days of APL discussion. 


The Conference was presented under the aegis of IRIA (Institut de Recherche 
d'Informatique et d’Automatique), a research institute supported by the French 
government's Plan Calcul. The technical aspects of the conference were organized 
by Philip Abrams (Cegos-Informatique). Yves Raynaud (Universite de Toulouse), 
and Louis Robichaud (Universite de Laval). 


The program comprised twenty-six papers by workers from seven countries, some 
from as far away as Australia. (A copy of the program follows this report. 
Proceedings are available in North America from Garth Foster.) In view of the very 
limited publicity, especially in North America, the large turnout for the conference 
was impressive. Even with short notice on the call for papers, so many good papers 
were submitted that the two-day program was quite crowded. 


Many of the papers dealt with APL applications, particularly applications in teaching. 
20. There were also, of course, sessions on APL theoretics and implementation. The 
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preponderance of applications-oriented papers is a hopeful sign that people are really 
using APL as well as worrying about theology and techniques of machine execution. 


The quality of the papers was better than we are accustomed to in technical confer- 
ences, though many covered material that is already familiar to the North American 
APL community. While it was valuable to have this material presented to the wider 
APL community, the unfamiliarity with existing work indicates a considerable 
communication gap despite the existence of the Quote-Quad and the efforts of the 
APL Users Group. The papers that impressed us the most were those based upon 

а single good idea, well developed and clearly presented. Two particularly good 
examples were “Algebra as a Language”, by K. E. Iverson, and “Graphics in APL”, 
by B. Rosenkrands. Rosenkrands’ approach to graphics demonstrated once again 
the importance of careful design and selection of APL programs as primitives when 
building a package for a particular application area, Iverson's analogies between parts 
of speech in APL and in natural languages gave us an entirely new viewpoint from 
which to look at our favorite programming language. 


A noteworthy aspect of the conference was the large number of communications 
contributed by IBM'ers from both Europe and North America. In particular, the 
papers by A.D. Falkoff and К.Н. Lathwell seem to indicate a new policy of IBM 
Openness to the outside world. Perhaps this is an attempt to regain the leadership 
IBM has lost in the APL community since APL/360 became a program product. 
There was also speculation that Falkoff’s discussion of experimental file systems 
might consitute a “non-announcement” of impending system enhancements. The 
frequent IBM references to the "execute" operator and its inverse encouraged 
similar suspicions by the assorted Kremlin Watchers. 


The physical arrangements for the meeting allowed all to run smoothly. despite 
the large number of attendees. The simultaneous translations between French 
and English were well done, although the language problem plus the large 
audience made for awkward question-and-answer periods. 


There’s no question now that APL is alive and well in Europe. The growing 
interest, and the resulting influx of APL newcomers, only accentuates the 
communication problem alluded to earlier. We hope that the growth of the 
Quote-Quad and the APL Users Group can contribute to international APL 
communication. 


It isn’t too early to be thinking about a second international APL meeting. 

Is 1972 too soon to expect a significant amount of new work to be ready 

for presentation? Or should we plan an APL Conference in Spring of 1973? 
Such a meeting should be sponsored jointly by several organizations like ACM, 
IEEE, SHARE, and SEAS. as well as the APL Users Group 


Paris in September is a fine background for an APL meeting. as many of you 
now appreciate. Anyone for Copenhagen in 7737 


Program 
K. E. Iverson: Algebra as a Language 
K. W. Smillie: APL and statistics . . . Programs or Insight? 


С. Dhatt, L. P. A. Robichaud: АРІ. Flow Graphs, and Finite Elements 
G. Martin: Un Langage de Manipulation Formelle 
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22. 


W. S. Hatcher, P. E. Rethier: Une Application du Langage APL au Probleme 

de Demonstration de Theoremes par Ordinateur 

R. P. Polivka, G. P. Schreiber: Experiences and Observations with a Self-Teaching 
Course in APL 


B. Rosenkrands: Graphics by APL 

P. H. Fortin, P. Laverdiere, L. P. A. Robichaud, D. Samson: Utilisation d’APL dans 
le Cadre du Projet des Statuts de Quebec 

б. Lacourly, L. Lebart: А. М. I. : Analyse Multidimensionnelle Interactive d'un 
Ensemble de Donnees 

1. С. Herz, C. H. Nguyen: Application du Langage APL a un Probleme de Recherche 
Operationnelle 

Р. 5. Abrams: A Formal Approach to APL Semantics 

R. H. Lathwell: A Formal Description of APL. 

B. Robinet: Syntaxe et Semantique du Langage APL 

B. Groc: Experience d’Enseignement avec APL 

P. Penfield, Jr.: Algebraic Description of Electrical Networks 

В. Beaufils, J. C. Cazoux, M. Laborie: Applications d'APL a l'Universite de Toulouse 
Y. Le Borgne: APL 360 au Centre d’etudes et Recherches d’IBM France a La Gaude 
G. Bartoli, P. C. Berry, C. Dell’Aquila, V. Spadavecchia: APL and Insight 

G. de Valn Davis, W. N. Holmes: The Use of APL in Engineering Education 

L. M. Breed: Design of the APL Plus File Subsystem 

P. Maurice, Y. Raynaud, G. Simian: Realisations «АРІ a !’Universite de Toulouse 
В. Arlettaz, J. С. Girard. B. Robinet: Un Compilateur Incrementiel d’APL 

H. Van Hedel: An APL Batch Processor 

A. D. Falkoff: A Survey of Experimental APL File and 1/O Systems in IBM 

A. Hassitt, J. W. Lageschulte. L. E. Lyon: Implementation of a High-Level Language Machine 
G. Batarelle, M. Delbreil. P. Kalfon: Projet d’une Machine APL 


MODIFICATION TO THE APL/1130 SYSTEM — PART 3 


J. F. Clementi 

IBM (Australia) 

95 North Terrace 
ADELAIDE. 5000. 
SOUTH AUSTRALIA. 


R. P. Fletcher 

School of Mathematical Sciences. 

The Flinders University of South Australia, 
BEDFORD PARK. 5042. 

SOUTH AUSTRALIA. 


B. G. James 

School of Mathematical Sciences, 

The Flinders University of South Australia. 
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In Part 2 of this series we indicated that the following modifications to the 
1130/APL system had been completed: 


23. 
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1. “PAGING” on the console typewriter | 
9 


2. Introduction of an overlay to support the 1132 printer with printing 
being controlled by the new system commands, 
(a) ) PRINTER 
(b) ) CONSOLE 

3. Introduction of an overlay to process OMR cards (the photostat of the 
ОМК card was omitted in the printing of Part 2 and, hopefully, has been 
included in this article). 


In the same article, two projects were stated as underway: — 


t. Introduction of a JNEWPAGE system command 
2. Restoration of the )PCH and )PCHS system commands 


Both these projects have been completed and operate as follows - 

1. The first ) PRINTER command after the sign-on causes the 1132 printer 
to skip to a new page. Thereafter, each )PRINTER command causes 
skipping to the next channel 2 punch on the carriage control tape. 

The )NEWPAGE command causes the printer to skip to a new page 
(channel 1 punch), The ) CONSOLE command is as described in Part 

2 of this series. 

The )PCH and )PCHS system commands are now available and, opposite 
to the original system, are available only in card mode. Before a card 
is punched, the system checks to see that the card is blank. If the card 
is not blank, then an error message is printed and the system continues 
processing as normal. 

After punching is finished, the system flushes and if a ) OFF command 
is encountered the user is signed-off. If a ) END is encountered, then 
the flush is terminated and processing continues. 


ы 


Three projects were stated as planned, but now yet underway: two have been 

completed and the third is underway. 

1. If the operator feels that a program should be terminated, pressing the 
‘INT REQ’ key will cause the execution of the program to be terminated 
and the message ‘PROGRAM TERMINATED DUE TO OPERATOR 
INTERVENTION’ to be printed. The system then flushes until a) END or 
) OFF system command is encountered. Thus, the ) END system command 
can also be used to define job steps with a single sign-on. 

2. The new system command ) DATE followed by a card with today’s date 
and if desired, a message of general interest to all users will cause today’s 
date plus the message to be printed with each sign-on. 

3. The development of a virtual core system is underway. The system M-space 
will be divided into “PAGES” of about 300 words. When, for example, 
pages | to 5 have been filled, a page is moved out onto the disk and a 
page is brought into core. This is an oversimplified view of the system as 
features such as priority page assignment, dynamic additions to the system 
global table, elimination of redefined or erased variables, etc., have not 
been discussed. A detailed discussion will be submitted for publication 
when development is complete. 


Two additional projects are underway: 

1. Work has begun on the addition of a system command ) PLOT. It is 
anticipated that this method of plotting will be much quicker than using 
either the standard APL function known as PLOT or the function PLOT1 
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(see the Algorithm section) both of which are written in APL. The )PLOT 


command will use an ASSEMBLER routine for plotting. 

2. During tracing in FORTRAN, it is possible for the operator to cancel the 
trace without cancelling the execution of the program. This is done by 
changing the position of bit switch 15 on the console. A similar feature 
is being worked on for APL. 


Two projects on which work will begin soon, are - 
1. The implementation of a routine for an improved ОМК card. 
2. Implementation of a faster 1132 print routine for an 8K/1130 system. 


The possibility of a 1403 APL print chain is being investigated, 


correspondence 
To the Editors, Quote-Quad 


Dear Sirs: 1 would like to express my appreciation, through you, to Harley P. 
Macon for his survey of APL Compatible Terminals in the most recent APL 
Quote-Quad 


T had been hoping, for some time, to have available such a survey and I am sure 
the compilation of such data would take considerable time. 


Yours very truly. 


Ratph G. Morrison 

1. P. Sharpe Associates Ltd. 
P. O. Box 71 

Toronto Dominion Centre 
Toronto 1 


To the Editors. Quote Quad 
Dear Sirs: 


In the June 11. 197] issue of Quote Quad, Arthur Anger objects to the word 
"niladic" because it mixes Latin and Greek roots and suggests the word "anadic." 
My wife, Cora, who is a classicist, assures me that no self-respecting classical 
Greek would have ever said "anadic." The prefix "an-" means "not" and is 
cognate with the English "un-": the suffix “-ай” forms nouns. and the suffix 
“с”. forms adjectives. Therefore, “апад” would sound as bad in Greek as 
"unness" in English. 


Unfortunately, the Greeks had no words for zero. and their words for nothing 
were awkward compounds. Cora suggests the word "'kenos" meaning empty, 

and hence the word “kenadic” as a possible replacement for niladic." In any 
case, there's no great harm in continuing to use "niladic" since English tradition- 
ally mixes Latin and Greek roots — the modern Greeks are the only people in the 
world who say “autokineto” Гог automobile. 


Very truly yours, 


1. F. Sowa 
Г. В. М. 
Вох 390 
24. Ploughkeepsie 
New York 12602 


Um 
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To the Editors Quote-Quad 
Dear Sirs: 


I would like very much to present a question to you in APL (and maybe 
it worthwhile to put it also т АРІ. П). 


Гм working with the APL implementation of the IBM 1130 here at our 
university and my main problem is that І get all the time WS FULL since 
I have a lot of functions and arrays, 


I would like to know if anybody has found any method to “sneak” into the 
definition of functions system commands so in that way the program itself 
can copy only needed functions and can erase unnecessary material. I hope 
somebody has an answer for this problem because really Гт a bit “stuck” 
otherwise. 


Thank you. 


Gideon Amir 
Computer Department 
(Electricity Building) 
University of the Negev 
BEER-SHEVA 

Israel 


To the Editors, Quote-Quad 
Dear Sirs: 


1 have been reading Quote-Quad for quite a while now, resolving every issue 
to comment and contribute. Getting it typed is part of the problem - sheer 
lack of time perhaps a larger part. 


However, | propose to literally write to you as a narrative on the most recent 
issue. 


The most upsetting thing about ALBJLC] is the wrong-headed necessity for 
applying the indexes in teft to right sequence. This conflicts with their right 

to left evaluation sequence. Similar right to left evaluation would have 
A[10p1]«110 leave A[ 17 with value 1, and the more involved case of 
411001 21«110 would leave AL 1 2] with value 1 2 (in origin one, of course). 


APL as a Conversational Language (p. 3) 

The note-taker for this presentation must surely have gone astray. To so 
persistently fail to distinguish between the APL language and the APL system, 
is to lower a cloud of doubt on the meaning of the entire report. Several 
readings later, the meaning of the last sentence of the first paragraph still 
eludes me. 


However, some of the discernable points must be remarked on. Why, for 
goodness sake, is the elegance of APL a bar to change? An incentive to 
change. surely. The right sort of change. Say. for example, we contemplate 
monadic «єє сох as implying a zero left operand (or blank 
for == with a character operand). Is this not the sort of change encouraged 
by the elegance of the APL language? Incidentally, I find the APL system 


quite inelegant, though very useable. 
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26. 


It is suggested that the APL system should allow the dynamic improvement 
of the program. But surely it does already? The specific system addition 
suggested is that, when some undefined variable is encountered, the system 
should ask for the value. І prefer it as а VALUE ERROR, so that I can look 
around and find out what went wrong. The improvement I'd like in this area 
is to have p V return a value of ^ 1 when У is undefined, so that my function 
can provide a default value if the person using it doesn't care to. 


Again, consider the suggestion that “a procedure to generate programs from 

pieces is needed, as well as the execution of system commands within programs”. 
But the system commands are blatantly antagonistic to the APL language. If a 
capability embodied in a system command is really worthwhile as an APL language 
feature, then let it be commemorated in APL syntax, as an operator, or, all else 
failing, an I-beam function editing.. Besides I find extensive use for system comm- 
ands while I am function editing. | can communicate with the operator, change the 
line width to allow editing. check on my global variables, save the present status of 
my function, add to and define groups, or just give up and load another workspace. 
On the other hand, I would like to be able to piece together programs, and the 
Obvious way to provide this is by interpreting the copy command, for example 

) COPY LIBRARY WORKSPACE FUNCTION (line numbers), as requesting a copy 
of the lines nominated to be inserted at the presently held point in the Function. 


Yet again, “the system should aid the programmer in flushing out incorrect programs”. 
If this means automatic purging when an error is encountered. then no thank you, 
because ГИ want to fix it up. On the other hand. І would like to have ) CHECK 
FUNCTION do a syntax check of FUNCTION to winkle out errors in unfrequented 
crannies, or just as a pre-execulion post-edit precaution. 


It is suggested that the programmers should be able to compute while function 
editing, but many users get confused just by computing while computing. and 
get their status indicators quite cluttered up. It's better to completely separate 
execution and editing. 


The block structure of Algol is commended for incorporation into APL, but this 
ignores the logical beauty and valuable adaptability of nesting by encounter. 


Finally. the plea for a formal definition of APL seems quite commendable, at 

least as far as the language is concerned. But the APL system (its commands, its 
function editing ? is perhaps not ripe for formal definition. or at least for enshrining 
as a standard. Probably several different APL systems are needed, for example for 
terminal and punched card APL. 


Conditional Branch. APL Compiler (p. 5) 


One presumes the first example should read 
Ае(2 3p'B+CD+E' )UI;J 


and that the IF in its explanation is not the IF operator subsequently described 
Also, it would appear that the one line recursive function FACT will eventually 
provoke a WS FULL message 


The functions A, F and G illustrate the beauty and convenience of nesting by 
encounter, which can only be implemented in a compiler by giving the code it 
generates many of the characteristics of an interpreter. 
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Generalised Lists and Other Extensions (p. 8) 


The proposals in this report are somewhat bewildering. To start with, the 
use of the diaeresis seems redundant. The nature of the operands would 
indicate the nature of the operation. T2+T[2 1 3:1,2 1] 
seems identical to 72+7[2 1 31:7111;7(2 1) ‚and such 
redundancy is anathema to the APL language. The “first” occurrence of an 
element in a tree might be ambiguous for the element В in the tree (А;В);В 
The resuits yielded by the shape operators look somewhat difficult to 
handle. On the surface for the example given, it would seem nicer to have 
2++p7,3+>+R7T[2],3++pT[l2 11 
and (0р0)«-р7Г2 1 3] 
The suggestions for monadic encode and decode would frustrate their use much 
as the binary operation, but with an implied left operand of tens. appropriately 
shaped. The operation for monadic dequote would seem happily represented by 
a monadic epsilon, and the monadic enquote is simply coded in a direct fashion. 


The proposed method of avoiding repeated subscripts should be noted as not 


necessarily restricted to arrays. XeXt1 can usefully be coded Х++1 
whatever the shape of X . However, it is not clear how XL X 1*1 might 
be interpreted, though X[XJ<X[X1+1 is more readily explicable. 


Incidentally, consider X,+Y 
APL/700 — An APL Implementation for the Burroughs 6700 and 7700 (p. 12) 


The statement "phantom length errors are weeded out when the result of the 
next operation does not require more elements than the shortest vector" indeed 
raises a spectre. Experience indicates that a length error almost always indicates 
a logic flaw, judged by the logic of the APL language used. Indeed. I have often 
been caused a lot of trouble by the habit of the major implementation of APL 
of weeding out “phantom” length errors by extending single element vectors as 
required by the other operand of a dyadic operation. Surely the expression А + B 
should stand or fall by itself and not be judged by shatever happens to appear to 
its left. However, the spectre raised is that this report describes an APL language 
incompatible with the language of the major implementation of APL. Truly. a 
formal definition of the APL language is long overdue 


Yours sincerely, 


W. N. Holmes 

IBM Systems Development Institute 
80 Northbourne Ave. 

CANBERRA АСТ2601 

Australia 


To The Editors, Quote-Quad 


Dear Sirs: 

I would like to show here a few things that I don't think other APL 1130 
users know about. It is possible on the APL 1130 to have a function or 
variable that can cause a back space or drop down a line in the middle of a 
раве or to return. Also it is possible to have the computer print in red or 
to alternate colors. In the following lines I will give examples of this power 
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| 22-02 --- Tw T; 


and show how you can create these functions for your self. So far I have 
only tried this process using an 1130 with the 03.3.001 revised APL version. 
I can’t say for sure, if at all. that this will work on other APL versions. 


Every character in the APL has з number corresponding directly with it. To 
find this number you type A plus sign and then the character (S). 
Example: 
+'АВСр! 
9,500031 0.500061 0.500092 0.500122 

To change numbers back to character data you type in the numbers and 
catenate to them the character empty vector (t t ) 
Example: 

.500031,.500061,.500092,.500122,!" 


ABCD 


After a week of research [ discovered that the catenation of the empty 
vector character with any number yeilds a legal character. The most 
interesting characters that I discovered were located after the blank. One 
of these characters is the red shift character which І am using in this 
program to simulate what the user has done. The following is an example 
of some of the most useful characters all used in the same variable. 


AL! 


One of the values of the back-space character, all of the characters have 
many different values. IS 443289. To use this character you catenate а 
character empty vector to it and store it if you wish. 

Examples: 


BACKSPe.5u3289,'* 


'O' ,BACKSP, ! -! 


e 
VUNSCR A 

[1] А, (Со, АЎОВАСК5Р), (р,4)о' Үү 
UNSCR "HELLO ТНЕВЕ" 


If you want output to be in red the number to change to a character is 
.5038. Anything on the line after the red character is typed in red unless 
the black character (value is .499803) is used after the red character. If 
the black character is used will be in black unless, of course, it is followed 
by another red character. 


(X JOIN Y) CONS "МІГ? <+ (X,Y). 
28. 
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Example use: 


To emphasize a certain word or words in a sentence. 


'DO ',RED,'NOT ',BLACK,'TOUCH,' 
DO "OT TOUCH, 


The value of the middle of the line return character is (.504638). When 
this is encountered on a line A return is executed. The value (.5048) causes 
the computer to activate the tab when it is encountered in a statement. The 
computer skips straight down one line when the character for (.505188) is 
used. I will leave it to the reader to find other characters not listed here. 


A devoted apler, 


Daniel Esbensen 
College of St. Scholastica, 
Duluth. Minnesota 55811 


** In the above letter, these APL characters that would appear in red with 
APL/1130 are underlined. — Editors 


29. 
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algorithms 


Number 77 Multiple Integration 


Robert P. Fletcher 
Flinders University of South -Australia 
Bedford Park, South Australia 5042 


This function integrates the function F over the N-dimensional cube with 
sides (-1.1) using the method of Sag and Szekeres (1). M represents the 
number of intervals each side is divided into for the integration. The 
function operates on M points at a time. Thus F must have an argument 
which is an NxM matrix, the columns of which represent points in N-space, 
and return a result which is an M-vector. A function returning the hyperbolic 
tangent is required: the one given will not give DOMAIN ERROR for the 

**" primitive. 


І. Т.М. SAG and G. SZEKERES, “Numerical Evaluation of High-Dimensional 
Integrals.” Math. Comp.. v. 18, 1964. p. 245-253. 


У I<M MLTNT W,CUBE; 


í; I; COMPT;K FK S YK S YK1; R5 RO 


1] CUBE+0; Н+2+М; K1+ AM, ГО 
[2 COMPT+1;K+CUBE+K1 
3 Хєл0хрҮК«ИрО 
4 X-(COMPT ,M)p( ,X), (Hx ((YK1+ LCK-1) «Меў -COMPT) + (-Mx YK) +0. 
5))-1 
t5] вх Ш> СОМРТЄСОМРТ+1;ҮКЄҮК1 
6 F<(1>R)/R;X<(1>F<(+#X<X)*0,5)/X 
7 I<I++/(FP XeXx (QX) pROtR)x (CROtR)&N-1)x (1- ROXEO-TANH. Р 
1-R):(1-R)xi-R) 
8 92x V (Маў ) CUBE-CUBE«M 
9 Теіх нні 
2 
V В+ТАЙН Х;Т 
[1 R+(80<|X)xxX 
2] R+R+(oR)p (802 X )\(T-+T)3T+3 Tex T+ (802 1X) /X,X 
V 


Number 78 Plotting 


This is an easy to use plotting function plotting the vector Y against the vector 
X. X and Y must have the same lengths, and by repeating values of X two or 
more functions can be plotted, although only one character (*) is used. The 
function adjusts the positioning of the axes, and the size of the plot (fixed) has 
been designed to fit nicely on an 1132 printer page. The maximum number of 
points which can be plotted using an 1130 workspace lies somewhere between 
120 and 140. 
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УХ PLOT Y;XM;YM;XS;YS;LNUM;LINE;XZ;YZ 

[1] X+1+L100x X-XM) + (XSA /X)-XM<L/X 

£2] Y+1+L50x(Y-YS)+(YM<L/Y)-YS<[ /Y 

[3] Х2+Г /1,L/(1*L 100x -XM:X8-XM) ,101 

C4) YZ«[ /1,L/(1*L50x-YS*YM-YS) „51 

151 шимч 

[6] »(140М-Ү2) /3 

171 LINE«101p' ' 

L8] »10,LINELXZ]«' . ' 

[9] LINE+101p'.' 

[10] +(~LNUMeY) /12 

[11] LINEUXC(LNUM-Y) / VpY )1e(*/ LNUM-Y) p! «' 

[12] ([/102-(OLINE)i!*. ')oLINE 

[13] »(512LNUM-LNUM*1)/6 

[14] 10 

[15] 'X RANGE ';XM;' ( !;(XS-XM)+100;' ) ':Х5 

[16] "У RANGE ';YM;' ( ';(У5-ҮМ)+50;' ) ';YS 
у 


Number 79 Housekeeping Functions 


Robert Goodell Brown 
P. O. Box 403 
Vernon. New Jersey, 07462 


In NOW GP in statement 4 is a control bit used in getting materials from 
file and putting it back. The last two statements tie a basic file. used in all 
programs, if it is not already tied. (This is on Scientific Time Sharing’s 
APL/PLUS system, with file capability.) 


NOW 


SATURDAY, OCTOBER 16, 1971 
EASTERN DAYLIGHT TIME 14:46:01 


VAOWLNIV 
7 NOW 
[1] AM 
[2 DATE 
(3 TIME 
(41 D«-gPe10 
(51 I2-(119),(120),121 
[6 +(99eFF 18)/0 
171 14076822 MSG1' FE 4,99 
V 
vDATE(DJV 
У T-DATE;DiAS M; V;W 
[1 D< 7 6 0! SATUR SUN MON  TUESWEDNFS THURS | PRI? 
t2 M+ 12 9 p'JANUARY FEBRUARY MARCH APRIL MAY JUNE 
JULY AUGUST | SEPTEMREROCTOBER NOVEMBER DECEMBER ' 
[3 V-((3o100)T125)*(0,(365 24 60 60 60 ті20)(11,0) 
C4 A+*D[1+7|(6 23614 6 2 5 5 1 3)[V[111+/[2J;1 
[5 nGOOD UNTIL OCTOBFR 1972. SUBTRACT DATE OF FIRST SUNDAY FROM 8. 
[6] W+('0223456789')[1+ 10 10 ту[21,у[322 
[7 T<(((Az=' 1)/4), DAY, '*,((МГУС11;]#' 0)74EVE21:; 2, ',(((#[1;1]=! 
3 0'),1)/7E 513), t, 19',0[;2)) 
5 v 
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ҮТІМЕГП17 
У TIME 
E15] "EASTERN DAYLIGHT TIME ';TMDCDi120 


VTMDCDUDIV 
Я Z«-TMDCD т 
[1] 2«,'0123456789'[1«& 10 10 т3+ 24 60 60 60 T7],':; ' 


v 
ҮТІМІП1ч 
CHAR ERROR 
VTIM(CIV 
v TIM 
| Бэй! t t 
[2] 2Р+1 
[3] ‘ELAPSED TIME  ';TMDCD(x20)-T77[2] 
141 "KEYBOARD OPEN ':ТМРСР(119)-77[1] 
[5] 'CPU TIME !;TMRCD(121)-TTL3) 


[6] Т7<(119),(120),121 
171 32308-122;' BYTES OF CORE USED! 
[8]  r28,' PORTS IN USE.' 


TIM 


ELAPSED TIME 00:02:22 
KEYBOARD OPEN 00:00:26 
CPU TIME 00:00:00 
23628 BYTES OF CORE USED 
11 PORTS IN USE, 


Number 80 Contour Mapping 


John E. Lauer 

Colorado Computing Corporation 
Box 38, 

Boulder, Colorado 80302 


ACONTOUR MAPPING, LIN. IS ALGORITHM 7 BY ALAN JO. 5, 


VCONTURLOJV 
V CONTUR E;D;,I;CH;LiM,K 

1 Le(ie[10xHSx (Dep E)[2]1-I-1),CE 
t2 M+1+[6xVSxDL1]-1 

(3 CH+((oCE)pt-erxo0afit),! ? 

4 ROW:CHC(1oCE)iL LMINT(ELi1*LEK;]x1-1|K)*ECA*CEIL К{]х1|К+(1-1 
)%6ху51 

5 +(M2I*I+1)/ROW 


v 
VLHMINTLOJV 

9 RCE LMINT V;N 
NeCEL1] 
CE+1 DROP CE 
В+ ( (1+4) 5N-A) LINT(( 141pV) +71+ру), V 
R+R PSGEQ CE 


гм 
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ATIME IS TRADED FOR VARIABLE SPACE BY SIMULATING */Ae.2B, VIZ.: 


VPSGEQ[D]9 
У RA PSGEQ B 
[i] R<. O 
[2]  *((0A)zoR-R,*/A[1*0R12B)/2 
У 
QU13;3J-3o0QU1 7;1+2 5001,1 5]+7 2p-Q-7 500 
2 
1 1 1 1 1 
1 0 1 0 1 
1 0 1 0 1 
1 9 0 0 1 
1 0 0 0 1 
1 0 0 0 1 
1 1 1 1 1 
VS + 1:6 
HS + „2 
СЕ<7р1 
CONTUR Q 
000000000 
пп 
D D 0 
ü D 
ü D 
ü Ü 
000000000 
СЕ+,1 
CONTUR Q 
CEET .5 .5 .5 .5 1 1 
CONTUR Q 
000000000 
По-оПо-оП 
По-оГо-с11 


090000008 


Number 81 Determinant 
Wiley Greiner 


У 


)CARD NODISP 


DeDTR M 

эхр,МГхрМ;1«ПхМГ(хоМе« 1 1 +М-МГ;1]°.хм[1; ]:D-10M;] 
aD BECOMES THE DETERMINANT TO ANY NxN MATRICE M 
APROGRAHMED BY WILEY GREINER 

РАТ ORANGE COAST COLLEGE ON APRIL FOOLS, 1971 
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Number 82 Generalised Matrix Inverse 


R. Mallette 

Defence Research Establishment Valcartier 
Valcartier, 

Quebec, Canada 


The functions GIVN and GINV1 must be used as monadic operators, i.e., 


В + GINV A and 
В + GINVI A 


where A is any matrix and B is the generalized inverse of A. 


СІМУІ returns the rank (mathematical) of the generalized inverse in the global 
variable RANK. 


The generalized inverse of an m x n matrix A has the following important properties: 


a) И is ann x m matrix having the same rank as matrix A 
b) Піва conditional inverse which is uniquely defined. 
с) It coincides with the inverse of A if A is a square, non-singular matrix. 


GINV and СІМУІ аге APL functions for two very distinct algorithms. GINVI has two 
advantages over GINV: 

a) It is usually much shorter than GINV. 

b) It yields the rank of the matrix A (in global variable RANK). 


However GINV is not as accurate nor as stable as GINV. 


VAI*GINV A;D;A1;411; K 5 K1; 42; B1; BTI B3; ZA 5B4 585 


[1] Depa 
2] A1I-841:(841)8.x41«(D[11, 12040 ;11 
[3] К+1 


41 /3:К1+К+1 
5] B1+4A2-A1+.xA11+.xA2<*(D[1J,1)oA[;K1] 
6] *(1E720»*/*/B1*8)/J1 
7] — BTI-8B1:(N8B1)*.xB1 
81 БСР) 
9] 91:24-(883)%.х83<(8411)%.х411%.хА2 
10] —+(1E u<2A)/Jh 
111 8ТГ-(К,0111)00 
12] +42 
13] Ju; BPI+QBus (QBu )+.xBu<B3x(1.0+(8A2)+.xB3)+ZA 
1141 J2:B5+A1I-A1l+.x42+.xBTI 
(151 А1%(К1,2(12)085,Г118Т71 
161 +(DE2]<K+K+1)/0 
171 А1+(Р{1],К)+А 
181 А114АГ 
19] +73 
v 


VZ-GINVi A;B;I;T;CIP;Q 
1] Be(&8A)*.xA 
(21 1+1 


[ee C сна 


35. 
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[3] Z+T+(11+D)e.=ı1tD+pB 
[s] 41:СІРе-(2%.хВ)-Тх(%1)х0е(%/%/Тх7%,хЯ) 
[5] -(1Е710>%/%/(СІРж.хВ8)а2)//2 
[6] 2«СІР 
{7} I<I+1 
[в] +1 
[9] J2:2+(Ix2+.x84):Q 
1101 RANK+I 
v 


Number 83 Fresnal Integrals 


A. K. Laflamme and R. Fortin 
Defence Research Establishment Valcartier 


To compute the Fresnal integral function defined as follows: 


s(x) = Г sin (22) dt 
0 


x 
C(x) = : сов (=) dt 


The function must be used as a dyadic operator: 
R + N FRESNINT X 


where 

N is one of the integers | or 2 

If n = 1, the program calculates S(x). 
If N = 2, the program calculates C(x). 


X is the argument x of the function. The permissible range of x is x 2 0, 


У Z-N FRESNINT X;M 

[1] >(((“Ме12)УХ<0),(Х>10000000),(Х>5),Х> 
1.93)/ 8753 

[21 *8,Z2-2x-/((X$2-(2301) 0.5) M) $(M-5-2xN) suxM)x 1(2-N)* 
2хМ<0,1Г7хХ 

C3] Me(Z- 0.36*3X)1 0.06815823 0.12151%92 
70.03811111 70,0837825 70.03781526 0.31090108 
0.11803682 

[s] +6 ,М+(21 0.17508963 70,03964846 0,1191138Б 
0.03949119 0.0937784 0.03735377 0.00561722),M 

(51 М<«(%Х:(0.10132%Хч2)-0,15%%Хх6),%Х:0.3183099- 
0.0968+Xx4 

[61 >8,2+0,5--/(N6M)x 2 1 OOXxX:2x 1xN 

[73 »0х240,5 

[81 >0xZ<(L0.5+MxZ)+M<10x6+X<5 

Гэ] 'FRESNINT ARGUMENT ILLEGAL! 
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36. 


Number 84 Exponential Integra! Function 
A. K. Laflamme and R. Fortin 


To compute the exponential integral function defined as: 


xt 


E GO = | š dt (а-0,1,2,...) 


ı t 


The function must be used as a dyadic operator: 

R< М EXPINT X 
where 
N is the order (n) of the function. N is an integer and 0 < К < 57 
X is the argument x of the function. The permissible range of x is: 
for O<sN<2, х>0 
fo 2s М < 57, x20 


V Z-N EXPINT X30 
111 >(((X<0)v((Z=O)AN<2)V=Ne0,i57),(X>12),(#=0),(X=0),Z<1)/ 
10 8 7 6 4 ,0pJ- 0.99999193 70.57721566 
[2] Z< 1 8.57332187401 18.059016973 8.6347608925 
0.2677737343 
[31 T9-üxN/2Z-2Z-(XiZ)*(Xx*X)xX1 1 9.5733223454 
25.6329561486 21.0996530827 3,9585969228 
[+] >((М-1),Х<(1Е775х10ГУ-2)ж%8)/ 8 6 ,Op2<(@+X)+X1 
C.00107857 ~0.00976004 0,05519968 70,24991055 ,J 
151 +>9,2<((X*N)+1!N)xZ+(*X)x+/(1Jg-1)+(X<-X)*J< Need 
[61 э9,264/((-Х)447)4(10)хИ-14040,11-2 
171 -9,Z-:Xx*X 
[81 +2+0 
[9] »0х24(10,54/х2):041086-01141100242-0 
[10] 'ЕХРІЎ? ARGUMENT ILLEGAL‘ 
v 


Number 85 Circular Integrals 
A. K. Laflamme and R. Fortin 
To compute the circular integral functions (sine integral and cosine integral), 


which are defined as follows: 


x 
sin t 
t dt 


Si(x) = | 
0 


x 
сов t - 1 dt 


сод = y + х+ | t 


in which Y is Euler's constant: 


Y 7 0.5772156649 ... 


37. 
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the function must be used as a dyadic operator: 
R+N CIRCINT X 


where 

N is one of the integers | or 2 

if N = I. the program calculates Si(x). 

If N = 2, the program calculates Ci(x). 

X is the argument x of the function. The permissible range of X is: 
forN=1,X 20 

forN=2,X> 0. 


У Z-N CIRCINT Х,Р,0 

(11 +((»(X20)ANeı2),(X=P+G+0),(X>10000000),X>1)/7,(3+2xN), 
53 

[2] >6,2<(71»М)х((У-1)х0.57721566%9%ФХ)--/(Х»2)%2х!2<-(Н- 
2)+2х\6 

[3] Р+(21 1 38.027264 265.187033 335.67732 
38.102095)*Xx(Z-X*2]1 1 40.021433 322.62ц911 
570.23628 157.105423 

C4} 6+(21 1 42.242855 302,757865 352,018498 
21.821899)+21 1 4 8.196927 482.485984 
1115,978885 449,690326 0 

[5] 2+(X#0)x(00,5x2-N)~-/(NOG,F)x 2 1 oXx 1*N 

[6]  +0xZ+1E"6x10.5+1000000xZ 

[7] 'CIRCINT ARGUMENT ILLEGAL! 


Number 86 Life 


Bruce A. Beebe 
831-A Prescott Way 
Riverside, Cal. 92507 
Thomas H. Munnecke 
UCR Economics Dept. 
Riverside, Cal. 92502 


‘Life’ was first described in the October 1970 issue of “Scientific American” 
and has resulted in much interest as evidenced by the number of repeat 
articles (esp. Feb. 771 and April 771) and computer programs written 


A pattern grows, remains stable. or dies according to the three rules of ‘Life’ 
l. Survivais: Every counter with 2 or 3 neighbors survives for the next 
generation 


m Deaths: Each counter that is crowded (> 3 neighbors) or isolated 
(» 2 neighbors) dies 
3 Births: Empty cells adjacent to exactly 3 neighbors give birth to 


new counters 


— All births and deaths occur simultaneously 
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VZIFELMIT 
Y 8 LIFE V;C;0;I;2;2; 0;iP;S;X;2 
(11 У-(,У),007-(,7%2%7<71%1,0оР9«Г/1,7147ерУ)рХе0<0>0е-Бі 0 Q 
[2] РХР;24<(/-2%0-1)р0>Р«0%2,0рМж«-М па Ve(Me2, ( (1хР)о0,(С01),п),7)\У 
[31 I"D:-(0z217)/DFC,pI-(ipV)e,.*(JeI),J-Ie1,C* 71 0 1 
141 РІС: ПЕМ. ';6,122;:((74C)0 31 Q)Nt о'[(Р,С)ру] 
(52 РЕС: +0 (16 VAM), CS^02G01G) , (8A5&(GC 1) -X) , Se1eVe( 328) vVA2 SS / (Z,V,Z) 


[I1)/EXP,PIC,PFD,DFC 

r6] 'DIFS ОМ GFR, с 

[7] 610,0 

[8] RPD:iZe(Je0?4Ce-147,0pRe1*SenVeP/C4V)n-RLSUP. Pev4Y]eCt SUR. Cev/Ve(R,n) 
nV]-XsXen 

[3] ІП ,М«52,((СхР-2)р1,((С-23р0),1),5<-Ср2,7-,У 


9 
75081119 1 LIFE CRASH 
У B<SUB A GEN. 0 20540 
[1] BeAt12*([/8)-A— 141 /BA/104 
V ° 
° о 
ооо о 
PCRASH ооо 
47 
CRASH GEN. 1 19360 
0100000 
0010010 
41:42 20:21 0-0 
0000 1 1 1 о оо 


о 
СЕП. 2 19360 
оо 
о 
о о о 
о 


СЕМ. 3 19360 


Number 87 Сіоск Face 
Bruce A. Beebe and Thomas H. Munnecke 


38. MS 


DIES ON GEN. 4 
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39. 


УСЕОСК 9 
V F<CL0CK;T 

[1] T+T+12x0=7+ 12 12 18000 т120 

[2] Fe 9 15 р"! 

[3] F[5;8]«' »' 

[4] F[1 9 ;8]+Р[5; 1 15J+'D' 

[5] FL2;5]-FL3;3]1«FU 7 ;13]-7L 8511] V' 

[6] FL8;5]«FL7;31«FL 3; 13]«FL 2; 11]! /' 

171 F[((2216),8-16) [TL 13); 10 12 13 12 10 8 6 4 3 + 6 (7111-48! 
81212111-1М! 

[8] F[2 3578987532 1[7[2]); 11 13 15 13 11 85 313 5 


CLOCK 
D 
\ / 
\ H / 
ü ° О 
/ M 
/ \ 
ü 
TIAE 


61:20:50 PM 


Number 885 Roman Numera! 


Bruce А. Beebe and Thomas Н. Munnecke 


VROHAULUV 
V RONAN IRD 


[1] “«(веве'тухгеру' iT) /3, pett 
C2) T1,p0-(8/R/D)-*/(-ReR214R,0)/De 1 5 10 50 100 500 10907271 
C3] +1 ,20='ТУСОРВЕСИ SYMBOL" 
У 
POMAN 
MORKCIT 


1492 
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APL МОВКЗВОР (41 


The 4th APL workshop will be hosted by the Atlanta Public School 
System and will be held on Thursday and Friday, June 15th and 16th, 
1972. Tom McConnell, the Director of the school's Information 
Processing System is making arrangements for the two day meeting, and 
will be assisted by Pete Jensen of Georgia Tech's School of Information 
Science. The sessions will be held on the Georgia Tech campus in 
Atlanta, and a block of rooms is being reserved for participants at the 
Quality Court Hotel, just across the expressway from Georgia Tech. 

One of the main themes will no doubt be APL in Education, due to 
the fact that Dr. John Hamblen of Georgía Tech will be directing an NSF 
funded Conference on Computers in the Undergraduate Curricula on June 
12 - 14 at the same location. 

Additionally an International Conference on Teacher Training will 
be hosted by Dr. William Atchison under IFIPS sponsorship on the same 
dates. Papers on other topics in the area of implementations, 
extensions, system support, termínals and so forth will be welcomed of 
course. 

The tentative schedule is: 

Wednesday, June 14th 


7:30 - 9:30 Registration and Cash Bar 
Thursday, June l5th 
9:00 Welcome and Keynote Speech 
9:45 Coffee 
10:15 Session I 
12:00 Lunch 
1:30 Session II 
3:15 Coffee 


40 
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3:30 Session II followed by tour of Atlantic 
Public School's APL facilities 
6:30 Cocktail Hour - Cash Bar 
7:30 Banquet 
Friday,June l'th 
8:30 Session IV 
10:15 Coffee Break 
10:30 Session V 
12:15 Luncheon 


A more detailed program will be published later. Conference registration 
will be set at approximately $25.00, including banquet, luncheon and 
proceedings. 
Those interested in attending the conference should contact: 

Mr. Thomas J. McConnell, Jr. 

Atlanta Public Schools 

218 Pryor Street 

Atlanta, Georgia 30303 

(404) 659-4714 
for further details on the conference. The proceedings will be 
published at the time or shortly after the conference. Submission of 
papers for review and acceptance should adhere to the following 


schedule: 

before March 20 Title of Paper and abstract should be sent 
as intent to submission along with your 
name, address, affiliation and phone 
number 

before April 20 Draft of Paper due, for review 

before May 15 Final draft due. 


Send the above to: 
Dr. Garth H. Foster 
101 Link Hall 
Syracuse University 
Syracuse, New York 13210 
(315) 475-5541 x4375 
41 
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| NOTE - from the boys in 
the back of the shop: 


As you can see from the editorial Alan McEwan and Don Watson are 
stepping down as Editors of the Quote-Quad. For the past two years they 
have served us well in improving the quality and format of the 
publication. During the past year alone, and counting this issue, 233 
pages of material have appeared in the Quote-Quad. Clearly, their 
presence will be missed. 

While we will be moving forward under the guidance of a new editor, 
there are several points which need to be made concerning the general 
activities of this ad hoc gathering of APLers. 

Therefore, we ask you to please read the following paragraphs very 
carefully and to respond if you have a desire to be a part of the active 
and growing APL enterprise. 


APL AND ACM 


The distribution of this issue to the readership has been delayed 
so that we might inform you that ACM's Special Interest Group on 
Programming LANguages (SIGPLAN) have approved a Bylaw change to allow 
the creation of SIGPLAN Technical Committees (STC). This can well 
satisfy the desire for a niche for APL activity in a recognized computer 
society, as expressed in the April, 1971, meeting at Berkeley, of 
WORKSHOP 3. 

To become an STC several things are required: 1) A set of Bylaws 
covering several key points of interface between SIGPLAN and the STC. ~ 
These are being drafted by the Executive Committee approved by you by 
mail last fall. 2) A petition from at least 20 persons, 10 of whom 
must be SIGPLAN members. - In this regard see the back cover which is a 
survey and petition sheet which you are requested to fill out and 
return to the Distributor, 3) An approved budget must be filed with 
SIGPLAN to show how the STC can operate without 1055. Before the budget 
can be completed new administrative and production costs have to be 
figured in. For example, it appears that there will be a $2/member/year 
cost associated with having ACM headquarters keep track of membership 
dues payment, maintain financial records and so forth. 

Joining some organization and having an already established system 
maintain records is desirable independent of an association with the ACM. 
The APL activity and interest is growing at a rate which has outstripped 
our volunteer labor force and costs need to be borne by some means. 

Other benefits from becoming an STC in SIGPLAN could be: 

1) Distribution of the Quote-Quad through ACM. (This depends on 

costs which are being investigated) 

2) Wider advertizing of APL activities through SIGPLAN. 

3) Rates for conference attendance could be made the same as those 

offered SIGPLAN members at the option of organizers of any 
SIGPLAN meeting. 


(continued on page 94) 
ii 
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editorial 


This is the third anniversary issue of Quote-Quad and it also marks the end of our 
two year span of editorship. We feel that there would be considerable benefit from 
a change. The new editor will be elected at the APL conference to be held on June 
1518 and 161, 1972. 


Mrs. Lib Gibson has indicated that she would be willing to take on this responsibility. 
She is presently APL co-ordinator at the University of Guelph and has had consider- 
able APL experience with the І.Р. Sharpe APL Timesharing Company. This broad 
background should be a help in balancing the commerical and academic material in 
Quote-Quad. In addition, a vivacious attractive editor would be an asset. 


We have attempted over our two year period to establish a good standard of present- 
ation for Quote-Quad. We would like to see this continue. Two other issues need to 
be resolved: 

1 An editorial policy on the refereeing of material. 

2l. Consolidation of distribution and editorship. 

Finaily. we would like to thank all our contributors and express our deep appreciation 
of the assistance given to us by Garth Foster. We would also like to acknowledge the 
services provided by the Lakehead University Media Services Centre — in particular the 
work done for us by Mrs. Keller, 


Until a new editor is chosen continue to send contributions to us. 


We are very pleased to have some response to our request for information 
on compilers. A short article on the CDC Star Compiler is enclosed. 
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Computer Innovations, Proprietary Computer Systems, APL Services Inc. а d the 
Computer Company have made the following additions to their Action/APL service. 


New plotting packages for the IBM 114 high resolution typeball and the Hewlett- 
Packard accessory plotter. 

A conversational report writer package requiring no knowledge of APL. 
Conversational business packages for budget preparation. sales projections. spread 
sheet analysis and forecasting, ratio and trend analysis, scheduling. personne! files. 
capital investment analysis, bond analysis. organization chart. inventory control and 
analysis, general ledger, labour analysis and time-value of money. 

A quick formatting primitive. tab and linefeed. 

50K workspaces and high speed input and output. 


A file system including sequential. direct. random and user-designed access systems. 


Efforts to get the APL User Group set up as a technical committee under ACM's 
SIGPLAN are proceeding. APL users may then belong to this committee without 
joining SIGPLAN. 


John Carpenter from the University of Texas will be the new chairman of the APL 
project. 


The IBM 1130 Program Product has been withdrawn due to lack of interest although 
the Type Ш program is still available. 


Two new Installed User Programs from IBM are: 
1) APL under CMS with CMS files and workspaces up to 16 megabytes. 
2) A text editor and composer. 


APL support of IBM 3330 should be announced soon. 


The new resolution of the SHARE APL Project has been accepted which requests 
capability to set the origin within а function such that it acts as а local variable being 
reset on exit from the function to that of the environment in which the function 
was called. 


IBM accepts as a future objective the resolution that it should market a CRT device 
for APL. 


A special APL print train is being designed. but the basis of its availability iy not yet 
defined. Programming support for it is being evaluated. 


Seven previous SHARE APL project resolutions which IBM had accepted are being 
worked on by IBM. These inchide the dollar sign, the execute function and a file 
system. 
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articles 


APL As A Coursewriting Language 
R.W.W. Taylor 


Introduction 

That APL can be used as an authoring language for interactive programs or CAl 
materials has been clearly demonstrated before [1,3]. The purpose of this paper 
is rather 10 discuss ways APL can be used to call on specific capabilities of the 
computer that CAl makes use of. The intention is more to suggest ideas than to 
lay down prescriptions, at the possible risk of disappointing both the amateur in 
APL who wants to find out all about the subject and the experienced programmer 
who will have already considered most of these ideas, 


The discussion will refer specifically to the implementation by McMurchie of APL 
on the IBM 1500 system, as this system features a full range of display and response 
modes for CAI (typewriter, cathode-ray tube, lightpen. and film projector). It 
follows that attention will be paid to both the unique capabilities and special limit- 
ations of APL/1500, but it is hoped that many of the points made will apply equally 
well to other implementations of APL. The most recent implementation of APL/ 
1500 is Version 3. level 4, und the extensions introduced in that implementation are 
employed in some of the programs below. 


Course Organization 


Typically, an APL CAI course is stored in one or more public workspaces together 
with associated files. To enter the course a student must sign on. load the proper 
workspace. and call the initial program in this workspace. When he has exhausted 
the portion of the course contained in the workspace, he must then load another 
workspace and in turn call its initial program. Fox, et. а! [3] have simplified this 
procedure by requiring the student to always initially load the same workspace and 
having the program itself instruct him further on the basis of stored student records. 


To fit a reasonably large СА! course into a limited number of the rather small АРІ? 
1500 workspaces is a challenge. Most of the course content should be stored in files, 
leaving the workspaces free for the machinery of the course; the workspaces themselves 
should then be built up from carefully nested programs, subprograms, and subroutines. 
Since there are only 52 names available for the variables and programs in any one work- 
space, as much use as possible should be made of local variables. The sample course in- 
cluded in the last section of the article illustrates some possibilities. 


Display 


Most CAL courses involve the potential display of a large amount of text, plus poss- 
ibly à number of diagrams. Since graphic display capability is not presently available 
for the CRT (cathode-ray tube) in APL/1500. any diagrams accompanying a program 
must either be provided as auxiliary material to be referred to, or else be shown via 
the film projector as described below. In the latter case it might be found desirable to 
display some of the text in the same way. 


The greatest amount of material to be displayed will probably consist of text on the 
CRT. (We can include here special displays, built for instance with the backspace. 
index and reverse-index A functions). In APL/1500, undoubtedly the best place 
to store this text is in public files that are accessed by the course, either line by line 
as separate file items ог as large, pre-formatted items (e.g. text matrices. or strings 


=: 
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containing the 4222 carriage return). On occasion а text item might recur 
frequently enough in a program to warrant its being stored as a variable in the work- 
space, in order to avoid repeated file accesses, and of course it is often convenient to 
embed a few words of text within a program statement. 


No matter how the text is stored. a great deal of control over its display on the 

CRT is made possible by the domino and [beam functions available іп APL’1500. 
For instance, the screen may be cleared at any time by the command BO . Also, 
the command B,N causes the next display to begin at line N on the CRT (where 
N is an integer between 0 and 14). and may be used to effect a partial erasure of the 
screen by displaying blanks at selected rows. As an example, the following function 
(when used as a subroutine) erases X rows on the CRT. beginning at row N. 


92-х QN 

(11 89,1, 2+10 
[21 є(1,Х)р' ' 
v 


Notice that it is impossible to erase only part of a line, unless the remainder of the 

line is regenerated. In fact. no control is possible over right-left positioning: all text 
displays begin in column 0 (numeric displays begin in column 2) and all inputs must 

be made from a carriage-returned position. In order to display text items in varving 
positions, blanks must be prefixed. Thus. -uo4' TEXT ' would display the text abutt- 
ing the right margin of the screen. 


By overlaying successively Jarger text items the effect of inserting portions of text 

can be achieved, and in fact a variety of dynamic displays are possible (within the 
limits of variation in system-response time) through the technique of overlaying text. 
Additional control over the timing of displays is possible through the use of the 97,7 
command, which results in a pause of T sixtieths of a second. By using this command 
dependently, a program could be written that, for example, adjusts to the reading 
speeds of individual students. 


An indefinite pause, or wait, is the result of the №8 — command-execution will not 
proceed until a key is pressed. (To indicate this to the student. it is usually desirable 
to display a statement such as “PRESS THE SPACE ВАК”). А wait also occurs 
automatically after any display on line 14 of the CRT (which can at times pose 
difficulties), so that the effect of a 88 command can be achieved simply by display- 
ing instructions to space at the bottom of the screen. 


The random-number generating function can be (and has been) used in the construct- 
ion of drill and practice exercises. The problem often arises, in these exercises as well 
as in more straightforward programs. of arranging varied consequences lor desired tor 
undesired) student responses. One way to solve this problem is To use the random- 
number generator in conjunction with the display controls discussed above. Consider 
the following program: 


АН 

111 B4,10+?3,2+10 

121 (-34+237)+'GOODFINE'T(i4)+o 412211 
ç 
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It will display either “GOOD” or “FINE” somewhere on line 11, line 12 or line 13 
of the CRT. Incidentally, when using a random feature in a program it is important 
to ensure that different students will encounter different random sequences. A way 
to do this is to initially set the student's random-number seed to a value involving 
the time of day, for instance by the command 23,120 


A random feature could also conceivably find application in conjunction with displays 
on the 1512 film projector, though usually more control over film display desirable. 
If a film has been loaded in the projector (and the terminal is properly configured) the 
command 85,1 displays film frame N by positioning the film and opening the 
shutter. On the other hand §5,-W positions the film at frame N but leaves the 
shutter closed. The function I15 reports the current film position, so that the 
command “advance the film one frame”, for instance, is expressed by  5,1-115, 


Similarly, 85,-115 means “close the shutter”. 
Student Responses and Response Analysis 


Any response, or input, called for in a program must fall into one of three possible 
categories: numeric, textual, or lightpen response. The maximum latency (і.е. the 
time allowed the student in which to answer) can be varied for textual or lightpen 
responses, though not for numeric input, by the use of the 810,7 command. 
Here T (again measured in sixtieths of a second) ranges up to about 9 minutes: a 
greater maximum latency can be allowed by simple branching. Note that 118 

is the converse of the domino function-it reads the student's current maximum lat- 
ency. The two functions can be used together in such applications as causing a 
program to adapt to increasing skill. 


The maximum latency for numeric input cannot be controlled; it is determined by 
the system. Despite this fact, calling for numeric input in a program (especially a 
quantitatively-oriented program) may seem attractive due to the case of evaluating 
the input, which can be checked directly for equality or compared against set limits. 
Also, the input may be looked at approximately. by using the [89 , N command to 
control the number of significant digits to be considered. A major drawback to such 
use of numeric input is the fact that the APL system itself first reduces any input to 
an APL constant (scalar, vector, or matrix). Unless special care is taken with the 
statement of problems, students quickly learn that they can simply feed the probelm 
itself back into the program. 


One way around this is to call for the result of a computation as text and convert 
this text into a numerical constant before evaluating the response. A number ol 
elegant subroutines have been written to perform this conversion [2. 3]. but they are 
somewhat slow in execution. In order to keep the program delay to a minimum. the 
simplest conversion routine adequate to the needs of the program should be used. 
Another problem, sometimes overlooked, that is connected with the use of a con- 
version subroutine is that the student might enter an improperly formatted number. 
or even straight text such as "HELP!" Some sort of backup text analysis should 
generally be provided as a "safety valve". 


Of course. most programs will rely to an extent on analysis of verbal responses 

some programs almost exclusively. APL permits nearly any degree of analysis of a 
textual response, depending on the trouble to which a programmer is willing 10 go 
and on the maximum program delay considered allowable. The simplest type of text 
analysis (both conceptually and operationally}, and the fastest. isa check for an exact 
match with one or more anticipated responses. The only problem is the fact that APL 
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treats quad-quote input as a vector (except for single-character input). and two vectors 
of unequal length may not be directly compared. Here are two ways of checking for 
a match while avoiding this problem: 


A/‘MAGNET'=6+,0 
123 u5z10.1'YESNO'|? 


Presumuably, in each case, branching would be performed on the result. Note that 
the second method can be used to check directly Гога number of different anticipated 
responses, although the first method could also have been applied serially to check for 
each expected answer. 


Requiring the student to match exactly on each response is somewhat rigid. in that 
variations in spacing or punctuation are not tolerated. One possibility is to simply 
remove from the text, before checking Гога match. any characters considered 
irrelevant. IF P is a character vector. the following function edits trom text T any 
characters (possibly including spaces) occuring in P. 


7 РЕТ 
[1] 2«(-Тер)/т 
у 


A more complicated edit function might be designed to delete only extra spaces 
(1.0, leading or trailing spaces. or multiple internal spaces). 


Even more tolerance can be built into a program by allowing some variation in the 
spelling of a response. For this purpose, a "Kernel" or set of “key letters.” iy identitied. 
and the response is checked to see whether it contains the letters in the given order. 17 
the text is T and the kernel is K. the function 


VZ+KKT 

(11 >2х2<0ғр7е<,(уутеК(110/Т 
(21 >0ғрКе1%К 

ç 


performs this check. Asan example. let Ke ' PRD'.., Then the resultof К K 'FIRED* 
is 1, while K K 'RIFLED' produces 0. Notice that we would also get a | 

from such responsesas 'FRIEND' or 'ALFRED' . however. Generally. a Keyletter 

check is most useful where the expected range of responses is small, and where a distinct- 

ive kernel can be specified. 


Sometimes it is only desired to know whether the student's response (after suitable editing) 
contains a certain key word. The following function scans the text T tor the word W: 


VZW S T 
C11. Zev/A/WsRCOD,W) , 140 TO OT 
y 


Thus, 'PAPER' S 'GRAPH PAPER?! yields 1. 


No matter what analysis of the student's response is intended, it may happen that the 
student “times out” by not entering in the prescribed time. in which case his response 
is taken to be whatever partial answer he has so far made. Н he has not vet typed 

6 anything, the response is read as a literal blank. A blank response also results if the 
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student merely enters without first typing anything. (This is not true for numeric 

input, where a valid numerical constant must be entered betore the program can proceed). 
Non-entering of a response can be checked for through use of 117, which returns either 

а | ога 0 depending on whether or not the last response was a time-out, and the program 
can be written so as to consequently take appropriate action. 


The remaining student response mode is the lightpen response, called for in a program 
by the ІЗ command. The lightpen is primarily useful for multiple-choice responses 

or for visual discrimination tasks. Analysis of a lightpen response is easy if care has 

been taken to exactly determine the CRT display at the time the response is called 

for, since the result of тз isa two-vector representing the coordinates of the character. 
pointed at (a time-out produces 71 71). The result сап be checked directly. since 
perhaps only the row component or the column component is important. or it can be 
converted to a single number or letter, for example as follows: 


1%(50 55 60 65=40113)/'ABCD! 


Here A,B,C, and D represent responses to characters (possibly spots of light such as 
463 online І at columns 10,15,20 and 25, respectively, while any other response 
yields a space. 


Branching 


Certain ways have been mentioned above of causing a program to adapt to the needs 
or desires of the user. A more obvious and more important way to accomplish this 
is to include branch statements in the program. so that each student follows his own 
logical path through the material, The branching may become quite complex if 
heavy use is made of stacked subprograms, and some discussion on this point will be 
found in the last section. Let us consider. for now, only branching within a single 
function. 


Branch labels are not available in APL/1500. A branch statement must specify. 

either directly or relative to the current line number (given by 126 ), the line num- 
ber to which it is desired to go next. Either method of specification has the disadvant- 
age of sometimes requiring a change in the branch statement following changes in 
other parts of the program. This makes it additionally desirable to keep programs 
short and branching fairly tight. 


We can separate branching internal to a program into that which is independent of 

any student response and that which is dependent on response in one way or another. 
The first category certainly includes any random branching that might be built into the 
program, but more likely it would be represented by branching performed on the day's 
date or on the time of day (e.g., a program that has both a morning and an afternoon 
version}. Information of this sort is again provided by the I-Deam functions available 

in APL/1500. Another possibility is to make use of the 1500 console data-entry switch 
setting, which is read Бу I6 . The switch setting could be used. for instance. to 
indicate the desired level of problem difficulty in a certain program, and could be varied 
from time to time. 


Often switches or counters are used in conjunction with looping to achieve the effect 

of different behavior from a portion of a program when it is gone through a second or 
third time. Though the differing behavior can many times be made to occur as a result 
of executing exactly the same statements (given that the switch or counter contents have 


been changed) sometimes it is necessary to set up branching through alternative 
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ments, dependent on switch or counter settings. A complex program could use in this 
way a large number of switches, as well as employing numerous counters to Keep track 
of various aspects of the student’s responses. Even with the most efficient localization 
and reuse of variables, it can become difficult simply to find enough names. In such a 
case, resort can be made to the somewhat chumsy use of vectors. Thus C+100p0 
provides (and initializes) 100 switches and/or counters: 0111, 01171, ete. 
Another possibility is to store temporary variables as file items. 


The second category of simple branching is branching performed as a result of analysis 
of the student’s responses. The previous section indicated that almost any degree of 
analysis of a single response is possible: analysis of a series of responses Is accomplished 
by plain or fancy score-keeping (e.g. by counting the number of misspelled words or the 
number of time-outs). Presumably, whether the criterion is to be a simple right or wrong 
оп a specific question, a certain number of correct responses, or а certain ratio of errors 
of a certain type, the program will administer the consequences through ав appropriate 
branch. Since a separate program statement is required for each branch command in 
APL, economy and speedy execution require as much consolidation as possible. Asan 
example, the statement 


>(3 2 120)/72 2 7%126,004-4/%1 


increases counter J by 1, accepts input. and then branches, Depending on the input. 
the branching could be back two statements, ahead two statements, or ahead seven: 
failing any of these. the program simply “falls through” to the next statement. Any 
series of successive checks to be made can be similarly stacked. as long as one of the 
later checks does not involve alteration of data. One caution to be observed is that 

a large number of checks that involve lengthy subroutines should not be combined into 
one statement, since all of the computations involved must then be curried out before 
any branching can take place, and a long program delay is guaranteed for any response 
made. 


Record Keeping 


The one overwhelming drawback to the use of APL as à coursewriting language is that 
there is no specific provision in the language for keeping records of student responses 
(either on magnetic tape or by means of messages automatically sent to a typewriter- 
equipped proctor station) in order to evaluate the performance of the course as it is 
administered to students. The only means of storing such information for later 
retrieval is through the use of files, which then must be read out one һу one after 

the data is collected (possibly after the data in the files has been sorted or man- 
ipulated by an auxiliary APL program). 


Because of the small file size т APL/ 1500, it is simply not practicable to keep 
complete student records (as is possible in Coursewriter. for instance). Whether 
an individual file is used to store only records generated by a single student or 
whether it is used to store all instances of a particular record. the record itself 
must be cut down to a minimum of essential information in order that the 
available storage is not quickly exceeded. Some of the typical data that might 
be desired in order to assess responses to a particular item in a course might be 
date, time of day, user number, problem label, actual response, time taken to 
respond, etc. The first three items are readily obtainable as numeric data via 
l-beam functions. In order to tack onto these a label and a record of the 

B response. conversion of literal to numeric data is usually necessary. say by means 
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of an alphabet vector A*'A3CD...' | The latency of the response can be 
determined as the change in cumulative latency (which is given by 119 ). and 
then appended to the other data. If a course were to call the following subroutine, 


V2+F R LiT 
(11 7+119,0р°Р 

[2]  (16718,90) (125), (120),(110),(А1Б,8«11),-7-118,2«10 
v 


Where F is a file name and L is a five-character label. all of the required information 
would be stored in file F, and the program would presumably continue by checking 
the response R for correctness. After a number of records had been saved in file F. 
they could be sorted by label or student number if desired, and then printed out at 
a typewriter terminal by calling a function such as: 


УЕ F;R;N 

[1] «охор 

[2] (Зо100)т148;'! ';2% 60 60TRL2]1:60;' 1';2[3];' ' 
ALRE3+15JJ,'  ',A[8471«48],' ',+60+714R+oN4N+1 

[3] >(М<ә0)/2 

9 


In most cases, not all of the information in the above example would be wanted. In 
fact, possibly only occasional indication of how the student is doing (as evidenced by 
scores, for instance) may be desired. Or simply a notice that a particular problem was 
missed - one way of showing this would be by means of a file item used as a cumul- 
ative counter and assigned to monitor the item in question. On the other hand. more 
intricate records might sometimes be wanted. as for instance a listing of particular 
randomly-generated problems that a student has missed. Certainly ways of collecting 
such data can be devised, and intricate analysis of the data can be planned. but given 
the limitations on time and space. large-scale day-to-day reporting of course perform- 
ance just does not seem feasible. 


Use of Subfunctions 


To try to build all of the machinery of a CAI course into a single APL program is 
unwise for several reasons. Not only would such a program be unwieldy in terms 

of editing and documentation. but it would likely include many repetitious state- 
ments, Furthermore, execution of APL/1500 proceeds fustest when function size 

is kept relatively small. On the other hand. the student should not have to call pro- 
gram after program merely to work through the material in one workspace. The 
answer, of course, is to have the student initially call one master program. which then 
calls a number of subprograms, each of which may call further subprograms. At the 
lowest level are found basic subroutines such as the examples listed in previous sections. 


There is the definite danger, in this approach, of getting lost in the logical intricacies 
involved in constructing such a nested set of programs. In particular, keeping track of 
the branching can be quite difficult, since a simple +0 command might result in 
shifting upwards several levels of execution under certain circumstances. [t may be 
found somewhat easier to keep track of the program logic through decision-logic tables 
rather than through sets of flowcharts. 


Execution of a complex group of programs may proceed in two ways. Implicit branch- 
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ing occurs when a line that does not contain a branch statement is executed. Whatever 
the result of this line, execution proceeds to the next line. If there is no next line, 
control is returned to the program that called the current one. possibly from the middle 
of a line, and execution of that line is resumed. Eventually execution of the last state- 
ment in the highest-level program will be completed, and control will be returned to 
the student. 


This sequence can be modified by the inclusion of explicit branch statements at any 
level. These may be simple internal branches such as discussed previously. or the branch- 
ing may be dependent on the result of a subfunction. Typical commands might be 

+4 or »2«3xi ч , Branching relative to the current line number can be 
accomplished by tying the result of а subfunction to the relevant component of. 127 
which reports the line number of pendant functions. The command +0 tor its 
equivalent) alwyas immediately returns control to the previous function. 


All of the subroutines listed as examples in preceding sections have been defined with 

an explicit result Z. for good reason. Either branching is to be performed on the result 
(or some equivalent use made of it) or the result is made a numeric blank. This last is 

a device to allow a number of subroutines to be conveniently included tn a single pro- 
gram line — each is catenated to the argument or result of the next. Alternatively, a 
numeric result of 0 could be added to a numeric argument. When a subroutine is to 

be often used in conjunction with another that takes a literal argument, or in conjunction 
with straight text, its result might more conveniently be made a literal blank. 


Example 


The remainder of this article is devoted to the listing of a sample course that is intended 

to illustrate the application of many of the ideas discussed above, The student would 

execute the main program D in order to enter the course, and D in turn would call the 

other programs. Two files are used: ' TEXT22' to store program content. and 250387! 
to store the student's records (assuming his sign-on number is 357). The work- 

space is made up of the functions and variables listed below, together with the sub- 

routines already listed in previous sections, 


72+с 
[1] Вр2+10 
v 
VZ+L К 
[1] Вч, N, 2-10 
v 
VZ+P N 


[1] §7,¥,2«10 


7 Іі DJ 
[1] Z<pI<I+J 
[2] eJ 

[3] »2xıl>ded+l 
v 


10 


n 
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v2-U Т 
[11 Z-AUT*26x(1«T)x28» T-AVT] 

v 
At! ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVEKYZ 

EIN! 

vD 

[1] за 

[2] +8 

[31 р 

ç 

VZ-A;X 


[1] »0х12=2+1+0+р, о0хо Р 'ПЕС', "0123456789 '[1+( 3р10)т100: 1110, С] 
[2] эцхїї-1,1 Т Xeisu«IU,L 5,0р9"ТЕХТ221,19"! 


131 0 

Сај 3,118 
v 

vo 


11 +S+C'YN'=1+,0)/4 3,2 8 

121 +ppO0+"314+'PLEASE TYPE YES OR NO.' 

3] +0,1 Z u,L 10 

41 H8,2 7 6,C,P 90,1 75 

[5] 85,20«?10,P 90,(00p[- 294'HERE IS ONE FRAME.',L 8.0 
6] В5,-115,р 200 

7] @S,1-115,(OppD+ 32*'HERE IS THE NEXT РВАМЕ.!),1 Q 4 
8] Н5,-115,С,Р 200 


9] 04,22 
y 
72+В 
11 +0хл0=рор, (2+3) хоР 
2] 411 


[3] +4x(S=4)au<ry 

81 —Z<p1 T 9,2 9,(0ре'ТЕХТ22'),(Р R 'FPOK?'),L 7,1 Т 8, 
Г в, Оро 'TEXT22' 

ў 


vD;N;C;5;P 

1] э3хї5-14Р-13,1 Т 13,2 5,3 Т 10,2 0,12 Q 0, 
(0po'TEXT22')xN«1 

2] »1,.(0poDe'YOU MISSED. TRY AGAIN.'),L 13 

3] 10,1800,1 7 16,L 13,1 7 144+5,L 4,C,0ppC+ 
"NORTHPARIS'L(15)+5xS+20>1+P] 

41 РЕ '@012','НСб'[1+5,1 61 

151 >7хі“(С $ R)vCa/CzetRe' .,' E R),L 12,2 Q 11 

6] 12,6 
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[7] —+9xi=('NRTPRS'[(4i3)+3x8])K R 

[8] >12,роПе(ә18),У C 

[9] 11х1(0-117)У2-14141 

[10] +3,P 300,1 Т 17 

(111 'SORRYWELL'{(16-N)+5*N=2],(019).U C 
[12] (728,2 4,C,P 600)+'PHAT''S ALL, FOLKS!! 
113] 610,325 

y 


о 'ТЕХТ22' 
4604 


ie'I SEE THIS TERMINAL IS NOT CONFIGURED! ‚( 222), 

732*'FOR FILM, SO LET''S GO ON. 

2°(732+'р0 YOU WANT TO TRY р gras 
"ТНЕ FILM PROJECTOR?' 

39729*'PRESS THE SPACE BAP! 

ue731*'ALL RIGHT. LET''S GO ON.' 

Бе 15*'ALL RIGHT. ' 

6»'PLEASE LOAD A FILM INTO THE PROJECTOR.' 

7e 'PRESS THE SPACE BAR WHEN YOU ARE FEADY.' 

Be'DID THE FILM PROJECTOR WORK?' 

9»'WELL, LET''S STOP FOR A MOMEWT.',(5222),732* 
170 GO ON, ENTER D AGAIN.' 

109 25*'QUICK QUIZ' 


119!" 
129'(USE YOUR LIGHTPEN TO CHOOSE A SUEJECT)' 
13° 314 HISTORY GEOGRAPRY! 


14e'DID THE NORTH OR THE SOUTH WIN THE',( A222), 
"CIVIL WAR?! 

159"УНАТ IS THE CAPITAL OF FRANCE?! 

169 `30%'У0И HAVE 30 SECONDS! 

179(731%!00Р5! YOU WERE TOO $L0W.'),C(5222), 28* 
"ТЕУ AGAIN." 

189'ALL RIGHT, BUT THE CORRECT SPELLING IS',A222 

19°', THE RIGHT ANSWER IS ' 
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The, .0 Inner Product: A Suggested Extension to APL 


Richard M. Heiberger 


Department of Statistics, lowa State University, 
Ames, lowa 50010 


It often happens while programming that constructions of the form 


(1) Z + (АГ11рВ8111),(4121р8122), ... ,(ALNJoB[81) 


are needed. A typical example is the matrix of 0% and 1% in the equation 


the matrix expression for the linear constraints 


ia. = 0 
i 


and 
EB, = 
8 0 


In standard APL notation the matrix may be constructed by 
(2,14R+C)0 (1р0), (Яра), (Свод), (190), (290), (ont) 


(2) 2 
13 0 


11100000 
00011111 
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using the values R = 3 and C= S. 


The similarity of (1) to the inner product expansion 
A+.xB <*> (А[1]хВ[1])+(А[2]хВ8[2])+ ... ACE 2x3L AD) 


suggests that the inner product notation be extended to the catenation and 
reshaping operations, leading to the basic definition 


(3) A,.pB <+ (АГ1)08(11),(4(2198121), ... , (ALM I pBLWI) 


with the conformubility requirements 
W = pa 

(4) 
# = pB 


and the additional requirements 


x 
“ 


14 
(3) 
А = ЦА 


that A be a valid left argument for dyadic Р. Ап ехдыре (prepared via use of 
the function CDR included in the appendix to this report) is 


123 CpRu 5 6 


4 5 5 6 6 6 


The definition (3) is easily extended. in stages. to arbitrary A and B. 
І. A and B both scalars . 


(6) A,.pB <> АрВ 


Example 


3 CDR 5 


H. A scalar, B arbitrary. 
(7) 4,-28 <+ (A,pB)pB 


Example 


3 COR 'АВСР"' 
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Example 
2 CDR 2 3 p16 


Tr 62:53 
456 


123 
456 


Ш. A vector, B. scalar. 
(8  A,.pB + (+/A)pB ++ A,.p(pA)pB 
Example 
2 3 CDR 3 
3 3 3 3 3 
IV. A vector, B arbitrary. 


(9)(A,.pB)[(+V(I-1)oA)+iA[IJ;J > ALTI,.pBLI;] 


«> (ACI],pəB[I;J]J)oB[I;] 


or equivalently 
(10) (А,.рВ)[;11 — A,.oBL;IJ 
where 
(ll) pA,.pB ++ (+/А),1+рВ 
Example 
2 1 CDR 2 3 pı6 
3 
3 
6 
Example (reexpression of (2)) 


R<3 

C<5 

4-1,8,0 
B-32p001001 


є A CDR B 


0611100000 
000011111 


/385 
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The generalization to arbitrary A requires that an additional condition 
(12) (+/А) = ip+/A 


be satisfied to ensure that the result of the inner product will have a well-defined 
vector. 
У. A arbitrary, В scalar. 


(13) A,.pB <+ ((7140A),1p+/A)pR 
Example 
(230123321) CDR 'B' 


BBBBBB 
BBBBBB 
VI. A arbitrary, B arbitrary. 
(14) (4,.0B)[I;;] > ALI;],.pBl;] 
with 
(15) pA,.pB ++ (1404), (1р+/А), (1408) 
Example 


(3201221093) CDR 2 ц p'ABCDEFGH' 


ABCD 
EFGH 
EFGH 


ABCD 
ABCD 
EFGH 


EFGH 
EFGH 
EFGH 


Appendix. APL Description 


The function CDR, an implementation of the «9 inner product, First tests 
conditions (4), (5), and (12), then tests for the special cases |. И. Ш, У. and 
finally treats all other cases by reshaping to the form of case IV. using а mod- 
ification of equation (9) 


SALI],.0B[I;] +> (ALI]xx/1*pB)pBLI;) 
and then reshaping the result by (15) 


16 
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VCDR[DJV 
V 7<А CDR B;RZ;RCZ;I;N 
[1] а DEFINITION OF ,.9 INNER PRODUCT 
[2] в IS A VALID LEFT ARGUMENT? 
(31 +ERRDxuv/,Az|A 
[4] +ERRDxiv/,A#LA 
(51 +ERRDx.v/,(+/A)#1p+/A 
[6] я IS А SCALAR? 
[7] | »Lixi0*ppA 
[8] 2+(4,рВ)рв 
[9] +0 
[10] в 15 B SCALAR? 
[11] 11:-22х10еррВ 
[12] 2+((71+рА),1р+/А)рВ 
[13] »0 
1141 я А AND В CONFORMABLE? 
[15] 22:>ERRLXı ("14pA)#14pB 
[16] ^ GENERAL CASE 


[17] а 02 
181 Е24(714р4),(1р%/4),1%рВ 
19 а 9,2 


[20] ACZ+x/R2 
21] п RESHAPE A INTO VECTOR AND B INTO MATRIX 
[22] А+(х/1+рВ)х,А 
23] WeltpB 
24] В«((1408),х/14рВЭрВ 
[25] a ITERATION 
26] 19 
271 2410 
28] 1:-1х18С2>р262,А(1«І%11рВ8Г148|1;1 
29] я RESHAPE RESULT 
301 Z«RZpZ 
[31] +0 
32] A ERROR MESSAGES 
33] ERRD:30,0[]-' DOMAIN ERROR' 
34] ERRL:'LENGTH ERROR' 
y 


РОР-10 Implementation of APL 
William R. Price 

APL Software Systems Inc. 

Computer Software Development, 

Box 7108 

Pittsburgh, Pennsylvania 15213 U.S.A. 


APL Software Systems is now marketing two APL systems for the DECsystem-10 
(alias PDP-10) computer. The two systems, the BASIC and the EXTENDED APLSS/ 
APL Systems, include all the primitive functions and features of APL/360 as described 
in Pakin. In addition, both APLSS/APL systems include the following features: 


1. The workspace size varies dynamically and automatically from 2K to 128K 
words (if the core is available) according to the user’s needs. The maximum 
size of 128K words is equivalent to 512K bytes іп APL/360. 


17 . Users may specify a symbol table size in the CLEAR command. 
— 


t 
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In addition to 2741-like terminals, APLSS/APL supports two modes of teletype 

1/0. The modes are keyword (10 for ` ) and escape (81 for ` ). Users 

may mix modes during input. while a system command specifies the mode of 

output. 

4. The encode ( T ). decode ( 4 ). and catenation ( . ) operators have been 
extended to apply to multi-dimensional arrays. 

5. There is a means of editing the last line entered using the same procedures as 

in function line editing. This saves users from having to re-type a long line 

containing an error and is also useful in building complex APL expressions. 


»(3 2р15),2 2p64+14 
LENGTH ERROR 
»(3 2р16),2 2рбеіч 


A 
(20171 2 is an arbitrary "line number" 
(3 2016),2 2р6418 

3 


»(3 2016),1112 2рбғач 
12345678 9 10 


6. Multiple statements may appear in a single line, separated by semicolons, with 
output of the result of each statement occurring only if the leftmost statement 
requires output. APLSS/APL provides mid-line branching. The second line 
below contains two nested loops. 


C1) IcN; J+M 


[2] Li:i*LixiO0«I-I-1;4-M;9L1xi0«497-1;4[7;D]*CUZ ;De70I ; /B1 


7. System command formats have been expanded to take advantage of DECsystem- 
10 file conventions. Users may save and load workspaces from disk. DECtape. 
or magnetic tape. 

8. The scan operator is provided. 


(+\15) 
13 6 10 15 
[3140276 
334477 


9. In addition to quad (Ü) and quote-quad (9) ГО modes. a third mode. the 
quad-del mode (B) . is provided. On input this mode passes data to the 
program uninterpreted. 


ра“ 
5 
3 

AC1 32,'0*,4[2], '*' 
[217 


10. A )TABS command is available for use on terminals with real tabs. This 
greatly speeds the output of data containing mostly blanks. such ах in plotting 
functions. 

Il. A carriage return does not follow the output of a character string ending with 
alamp (8) . 
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А“! П«!%-2-4" 


12. Many of the “nuisances” of other APL systems have been avoided. For 
example, users may execute the SAVE, )CONT. )COPY, or ЭРСОРҮ 
commands during function definition, and functions may be defined while 
quad input requests are pending. 

13. А list of named-objects may appear in )СОРҮ ог JPCOPY. These commands 
have two error messages; one listing the names of objects not found in the 
copy workspace. and the other listing objects found but not copied, 


)PCOPY MYWORK A B STD AVE 
OBJECTS NOT FOUND: B 
NOT COPIED: STD 


In addition to the above mentioned features. the EXTENDED APLSS/APL contains 
the following capabilities: 


1. The matrix divide operator (8) is included and functions in the standard 
fashion. 

A powerful execute operator (monadic + ог є allows users to “execute” 
strings containing APL expressions. function definitions, and any system 
command. 


2 


€'VR«-0P SCAN T;V;W 

ReeOP, ! ' A((-W)x! ! ,OP, ! ':710) (8 (oW) pT)xWeVe, sVeipT' "У 1 
t+! SCAN 15 

136 10 15 
€! ! txt! SCAN 13! 


1.2.6 
€')GROUP FNS ',,e')FNS' 
Ate')GRP FNS' 
A 
SCAN 
ҮН 


(11 Z+te')SAVE THISWS' 

C2) "WHEN LOADED EXECUTION RESUMES AUTOMATICALLY'V 
H 

WHEN LOADED EXECUTION RESUMES AUTOMATICALLY 
z 


21:17:39 2/14/72 9BLKS 
)LOAD THISWS 

WHEN LOADED EXECUTION RESUMES AUTOMATICALLY 
2 

SAVED 21:17:39 2/14/72 2K 


3. Ап equally powerful quote operator (monadic Т ) provides means of convert- 
ing numeric data to character data and function definitions to character strings. 
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МЕС СС 


рВ+тА+\3 
7 

A/*123'eB 
1 

с'а" 

A/B=TC 
1 


Пел«т AVE! 
VR*AVE A 
R+(+/A)#pA 
v 


)ERASE AVE 
А 
AVE 13 


An APL function editing system written in APL using Ihe execute and quote 
operators is nearing completion. The system includes string substitution and 
the ability to copy lines from other functions. 

4. А file system allows for both sequential and shared random access internally- 
formatted files. in addition to ASCII sequential files. The ASSIGN, 
)DEASSIGN, )CLOSE. and CREATE commands provide a meins of 
controlling the file system while the B and B operators perform the 
actual input and output operations respectively, А total of 12 files may be 
open at any one time. 

Random access files are created with the } CREATE command und consist of 
numbered components. Components may be read. written. and deleted 
randomly. Individual components must be of one type. but components of all 
types may be stored on the same file. For example, ABL 10741 writes the value 
of A ta component 10 in the file assigned to channel Г. 

5. The INPUT and )OUTPUT commands permit users to divert input and output 
normally done at the terminal. For example. 


OUTPUT LPT: 

11000 

)OUTPUT TTY: 

2 
2 
causes the result of 11000 to be printed on the line printer. In the example 
below, the INPUT command causes input to be taken trom the disk file FNS. 
which contains ASCII text defining the functions АУЕ. STD. CORREL. and 
ANOVA. Upon encountering the end-of-file, APL spaces over six spaces ready 
for terminal input. 


INPUT PNS 


AVE 
STD 
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6. Тһе operator, ў , formats output. This operator functions in а manner 
similar to existing format operators. 


ID-22 9 7 

NAME+3 8p'JONES SMITH DOE 
AMOUNT+1542.28 333.3 124.42 
PS+'LI5,841,X3,RM«DPM$MCr10.2' 
FS $ (ID;NAME ;AMOUNT ,* /AMOUNT) 


22 JONES *$1,542.28 
3 SMITH ***$333.30 
7 DOE *#*$124.42 


*$2,000.00 


The most significant difference between common features of the APLSS APL systems 
and APL/360 is that all floating-point values in the APLSS systems are represented in 
single-precision format. This is due to hardware constraints. Internal calculations for 
the sum reduction, matrix multiply. and matrix division are done with double-precision 
Software. Twice the number of floating-point single-precision values may be stored in 
the space needed for double-precision values. 


Those interested in learning more about the APLSS-APL systems may obtain the 
APLSS/APL REFERENCE MANUAL for $5.50 from 


APL Software Systems. Box 7108, Pittsburgh, Ра. 15213 


The PCS/TCC APL Timesharing System 
Warren Juran 
Proprietary Computer Systems, Inc. 


Jerry Enfield 
The Computer Company 


Abstract 


Both commercial and in-house timesharing services have incentives for appealing 
to a wide variety of potential users. To provide this appeal, the timesharing 
service should be flexible, economical. and provide the tools needed for many 
different applications. This paper describes the APL timesharing systems operated 
by Proprietary Computer Systems in Van Nuys, California and The Computer 
Company in Richmond, Virginia. These systems include a large library of APL 
application programs, fast formatting, direct access APL files, automatic tabbing. 
and high-speed, high-resolution plotting. 


Introduction 


The APL ianguage provides an excellent basis for an attrative timesharing system. 
It is easy to program in APL, and APL has tlie speed and power to make it suitable 
for a wide variety of business and scientific applications. A timesharing system for 


21 general use should be able to manipulate large banks of data. print formatted output 
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economically, and should include a large collection of application programs so that 
the users don’t have to do more programming than the amount appropriate for the 
type of application, Even with APL. these features greatly enhance the value of the 
service offered to the timesharing users. The library and enhancements discussed in 
this paper are currently running on the PCS IBM 360/50 in Van Nuys, California and 
on the TCC IBM 370/155 in Richmond, Virginia. The APL users of these services 
have been enthusiastic about the added capability provided by the enhancements and 
by the program library, and have used these features to create application pack: 
that would have been difficult or impossible without them 


The files and formatting enhancements have had their greatest use in commercial and 
business applications. The files provide the facilities for working with data bases too 


large to fit in the APL workspace. Use of files also frees Ihe users from concern over 


the details of how data are retrieved and updated. This means that non-pr 
personnel can operate programs that require involved data management opera 
The fast formatting enhancements 
produced at an attractive price. Numeric formatting in APL without the aid of 
formatting enhancements uses too much CPU time to be attractive in many applic- 
ations. 


amming 
ions. 
re necessary so that formatted output can be 


For users requiring more graphic capability than that provided by the АРТ, typeball 
and normal typewriter resolution. the PCS TCC systems provide high-resolution 
plotting using a special plotting typeball. The high-resolution plotting is supported 
by a fast plotting enhancement to the APL system so that CPU time is minimized. 
For users requiring more resolution than the 30 points per inch that can be obtained 
with the special турерай, the PCS?TCC library includes APL programs for driving 
accessory plotters that can be used with an APL terminal. 


A public library of application programs allows new users to derive value from the 
APL timesharing system, even before they learn enough APL to write their own 
programs. Experienced users find that a large colleetion of existing APL routines 
save them programming time. The PCS/TCC APL program library is the world’s 
largest and contains over 2.000 programs covering both business and scientific 
applications. An important aspect of an APL program library is its organization. 

A uniform system of catalogs, documentation and vonventions is used to make 

the library easy to use. 


The PCS/TCC APL Public Library 


Commercial and business users are an important part of both the PCS and TC 
user families. The library supports these customers with APL application pack: 
for inventory control, financial analysis, time value of money calculations, invest- 
ment analysis, report generation and operations research. Scientific and engineering 
users are supported with structural analysis, coordinate geometry. project planning 
and control. estimating, circuit analysis. statistics. graphics and mathematical routines. 


es 


The library is organized so a minimum amount of information is required for using 
the library programs. Library І includes a workspace called LOCATE which cor 
lists of programs, libraries and program locations. A user can type ) LOAD І LOCATE 
and then type LIBRARIES for a list of all the public library numbers. If he knows the 
name of a particular APL program in the library, he can find out the library number 
and workspace name by typing FIND and then entering the program name when 
requested. 
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Once a user knows the number of a public library. he can find out the workspace 
names using the systems command ) LIB n where n is the library number. All the 
public libraries contain a workspace called CATALOG with conversational functions 
LISTALL and LIST for listing the contents of the library or of a particular work- 


space. All the individual library workspaces (including the LOCATE and CATALOG 
workspaces) contain a program called DESCRIBE or some similar name that can be 
used to tell the user how to use the programs in the workspace. A user who loads 

a library workspace and types ) FNS shoutd receive enough information to proceed. 


А hard copy list of major library routines, sorted by library and workspace and 
another list sorted by function name are maintained with program functional deseript- 
ions and distributed to existing and potential users. Program manuals for some of the 
more extensive packages such as PERT. СОСО. Linear Programming. Circuit Analysis, 
Digital Filter Analysis, Financial Analysis and others are also maintained, 


PCS/TCC Fast Formatting Enhancements 


Controlling the positioning. format and number of decima! places in printed output 

is necessary in many timesharing applications. Formatting programs (such as the 
program DFT) that are written in APL use too much CPU time for many applications. 
Timesharing users resist paying a premium rate for formatting output. The first fast 
formatting enhancement added to the PCS/TCC APL system was a fast version of the 
1BM supplied program DFT. The enhanced program used the same syntax as the 
original DFT. It uses an I-beam linkage to assembly language code for economic: 
performing the formatting operation. The fast version of DET uses less than three 
percent of the CPU time required for the all АРІ. version of DFT. Users can copy the 
fast version from the library into workspaces containing the all APL DET and then 
save the updated workspace. 


Fast formatting using the enhanced DFT program was well received by users of the 
PCS and TCC systems. APL’s speed of calculation, combined with the fast formatting 
enhancement, made the cost of APL service attractive compared to non-APL based 
services being offered commercially. The success of this first version of fast formatting 
prompted additional development in the formatting area and the subsequent announce- 
ment by TCC and PCS of the alpha formatting operator. 


Fast formatting using the alpha operator provided a further increase of speed over 
the enhanced DFT program. The alpha operator. like other APL operators. can be 
used without copying anything into the APL workspace. It can be used either of 
two ways. When used with a numeric left argument, the alpha operator formats 
the APL variable used as its right argument in a manner similar to operation of the 
program DFT. There are some differences between the behavior of alpha and DFT. 
notably that the alpha operator can format multi-dimensional arrays as well as 
scalars, vectors and matrices. The main advantages of this type of use of the alpha 
operator are its increased speed and convenience compared to DFT. For formatting 
a 10 by 10 table of numbers, the alpha operator is over three times as fast as the 
enhanced version of DFT. and about one hundred times faster than the all APL 
version of DFT. Figure | shows some examples of using the alpha formatting 
operator with a numeric left argument. 


The alpha operator may also be used with a character string left argument. When 
used in this mode, the alpha operator provides a wide variety of possible formats 
which can include floating doliar signs. comma insertion for large numbers, mix- 
ing of character and numeric characters in the formatted output, check protecting 
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ра 


É 


and many other varied and useful effects. Figures ? and 3 show some representative 
examples of the use of the alpha operator for this type of formatting. 


The syntax rules and error messages associated with the alpha operator are similar 
to other APL operators. Users of the PCS and TCC systems and our in-house APL 
programmers have found that the alpha operator significantly reduces both prog- 
ramming and execution time. 


PCS/TCC APL File System 


The PCS/TCC APL file system has been in commercial operation since June of 1970. 
The DOS version of the file system operates within the APL partition, ing the 
other foreground partition and the background partition available for other uses. 
At PCS, an enhanced version of ATS is run in the other foreground partition for 
customers with text editing, remote data entry and data base management applic- 
ations, The background partition is used for batch processing and Tor loading and 
dumping APL files. File space is allocated by running a background program. The 
background program specifies the number of cylinders of stor: to be allocated. 
the user number, and the cylinder identification numbers requested by the user. 
Central processor time used by the file system is picked up by the APL accounting 
system and treated the same as CPU time for other APL operations. 


To use the file system, an APL user first requests the computer center to allocate 

an appropriate amount of file space to his user number. (In practice. this is usually 
done by a phone call or by a termina! message to the operator.) The user then copies 
into his workspace the public library programs SAVE and COPY that provide the 
capability to store and retrieve records from the APL files. 


Any APL variable that occupies less than 7200 bytes can be saved on the files using 
the program SAVE. The attributes of the suved variable, (character or numeric: 
binary, integer or floating point: and its dimensions) are also saved in the file auto- 
matically so the variable has the same attributes when retrieved. The left argument 
of the program SAVE is the name of the variable to be saved on the file. The right 
argument of the program SAVE is a two or three element vector containing the 
record (or track) number, the user-chosen cylinder ident n number, and (for 
shared file applications) the user number associated with the shared file. The file 
system includes facilities for a track-level file hold for shared file applications. The 
syntax of the programs SAVE and COPY obey the usual APL rules. The arguments 
may be variable names, numbers. or APL expressions. 


The program COPY requires a single argument and returns an explicit result. The 
argument is a two or three element vector identical to that used with the program 
SAVE. The result is the name of the APL variable that wil! receive a copy of the 
stored file record. If no name is specified for the result. the copy returned will be 
available for printing or computation. but will not be retained in the workspace. 
The programs SAVE and COPY may be executed under control of an APL program 
or from the keyboard. When used under program control. the user is unaware that 
the file operations are taking place. 


Linkage between the APL programs SAVE and COPY and the underlying assembly 
language code that performs the file operations is accomplished through a special 
I-beam that has been added to the system. It is easy to install the file system on an 
existing APL system. 
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The file system has found extensive use in operational estimating systems. manage- 
ment of quality control data, storage of networks for PERT analysis. storage of 
electrical circuits for circuit analysis programs, personnel data tiles, on-line checking 
and storage of transactions for off-line processing programs, and retrieval of data 
produced by off-line programs. About 10,000 tracks of 2314 disc stora 
used for APL file storage by PCS customers (March, 1972). 


e arc being 


Some examples of the use of the file programs SAVE and COPY are included in 
Figure 4. Figure 5 shows use of the APL file system under program control, 


High-Speed, High-Resolution Plotting 


A special high-resolution plotting typeball (type 114) is available from IBM. Dennis 
Jizba, a PCS APL user. created an APL program to produce high-resolution plots 
using this typeball. His program included provisions for driving the 114 typeball on 
either correspondence or BCD coded terminals. To reduce the CPU requirements 

for driving the plotting typeball, assembly language coding was substituted for some 
of the original APL code. The PCS/TCC public library now included a variety of 
high-speed programs for producing plots using the 114 typeball. The programs are 
generically referred to as Accuplot programs and produce a resolution of thirty points 
per inch both vertically and horizontally. 


Thirty points per inch is five times better vertically and three times better horizont- 
ally then the resolution of the Selectric typewriter mechanism. The improved resolut- 
ion is possible because the 114 typeball has fifteen different dots on it and can be 
positioned to type one of them anywhere in a five by three matrix located at a 
selected carrier position. Adjacent dots are produced by typing a dot. backspacing 
and then typing the second dot. The 114 typeball also includes special characters 

for producing heavy axes for graphs, vertical and horizontal graduations and corners. 
Figure 6 compares the APL and 114 typeballs. The graphs produced by the Accuplot 
programs are suitable for use in reports and papers. Some samples of Accuplot pro- 
grams are suitable for use in reports and papers. Some samples of Accuplot program 
output are included as Figures 7 through 10. Figure 7 is a damped sinusoid produced 
by a conversational version of the Accuplot program. Figure 8 is an example of John 
Conway's Game of Life as described in Scientific American. Figure 9 is a frequency 
response plot produced by a PCS customer using the Accuplot program and a circuit 
analysis program from the PCS public library. Figure 10 shows some other effects 
possible with the Accuplot programs and 114 typeball. The enhanced version of the 
Accuplot programs are twenty to one hundred times faster than the original all APL 
program. 


The PCS/TCC library also includes Accuplot software for users to build their own 
plotting packages using the 114 typeball and taking advantage of the high-speed 
enhancement for plotting. Users needing still greater resolution than provided by 
the Accuplot may obtain an accessory plotter to operate with their termina! and 
use the programs in the library that are provided for driving these devices. Figures 
11 and 12 show how one of these plotters can be used to produce continuous line 
graphs. 


Other PCS/TCC Enhancements 


Other enhancements to the PCS/TCC APL System include three different kinds of 
tabbing, backspace, linefeed and idle characters and the “legalization” of two ditfer- 
ent dollar-sign characters (formed by overstriking the S with the magnitude or 
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compression symbols). Tabbing may be performed using the systems command} 
JTABS n where n is the interval between physical tabs set on the terminal. The 
УГАВ$ command remains in effect throughout an APL session and may be changed 
at will by re-issuing it with a different value for n. Tabbing may be terminated by 
typing ) TABS 0. While the TABS command is in effect. all output from APL to 
the terminal is appropriately tabbed based on the current value for the tab setting. 
The tab setting is not saved with the workspace and is automatically set to O when 
a user first signs on. 


Tabbing with variable tab intervals can be accomplished with the library program 
TABS located in library 1, workspace FORMAT. This program includes a high- 
speed enhancement so it requires negligable CPU time. Its syntax is TABS TAB X 
where TABS is a vector with the physical tab settings to be used and X is а character 
string to be tabbed. Programs using the function TABS may be stored with tab 
settings in a workspace. 


For users who want to create their own tab applications, tab and idle characters 
are available in the library. 


Conclusions 


This paper has described some of the features added by Proprietary Computer Systems 
and The Computer Company to their APL timesharing systems. We feel that these types 
of enhancements to the APL system are necessary for APL to be attractive in many of. 
the types of applications our customers are using. The files and fast formatting are 
essential for many business and commercial (and some scientific? applications which 
would otherwise not be practical in APL. 
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NEXAMPS 


FORMATTING A SCALAR 
9 2412345 
12345,00 


FORMATTING A VECTOR 
6 2а110 
1.00 2.00 3.00 4.00 5.00 6.00 7,00 8.00 9.00 10.00 


PORMATTING A MATRIX 
6 1 а 2 3016 
1.0 2.0 3.0 
4.0 5.0 6.0 
26 
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AND HIGHER ORDER STRUCTURES 
5 142 2 2 29116 

.0 2.0 

.0 4.0 

6.0 

8.0 


9.0 10.0 
11.0 12.0 
13,0 15,0 
15.0 16.0 


VARYING COLUMN FORMATS 
409271 а 2 3р\б 
1 2.00 3.0 
ч 5.00 6.0 


COMPRESSING A COLUMN OUT 
“00071 а 2 3016 
1 3.0 
4 6.0 
OVERFLOWING A FIELD 
4 0 6 143 2021 123456 444% 655 90 822.123 
21а«акаа 
**** 655.0 
90 822.1 


SCALAR LEFT ARGUMENT 
5а23.2 54.3 ‚1 1.1 
23 54 0 1 


FIG. 1 ALPHA FORMATTING OPERATOR 


)LOAD 1 ALPHA 

SAVED 16.39.21 11/01/71 
)FNS 

AEXAMPS NEXAMPS TELLITALL 
AEXAMPS 


FORMATTING A SCALAR 
%22,229.99"а123%.567 
1,234.57 


: 
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FORMATTING A VECTOR 
"22,229.99 '01000,23415 
1,001.23 1,002.23 1,003.23 1,004.23 1,005.23 


FORMATTING А MATRIX 
'22,229.99'a3 201000.23416 
1,001.23 1,002.23 
1,003.23 1,004.23 
1,005.23 1,006.23 


AND HIGHER ORDER STRUCTURES 
'22,229,99'a2 2 2 201000,.23+116 
1,001.23 1,002.23 
1,003,23 1,004.23 


1,005,23 1,006.23 
1,007.23 1,008.23 


1,009,23 1,010.23 
1,011.23 1,012.23 


1,013.23 1,01%,23 
1,015,23 1,016.23 


FIG. 2 ALPHA FORMATTING OPERATOR 


VARYING COLUMN FORMATS 
'229,22,229:22,229.99'023 123 1234,56 
23 123 1,234.56 


FLOATING DOLLAR SIGN 
'$$22,229.99'2a1238.567 
$1,234.57 


FLOATING PARENTHESIS ON NEGATIVE NUMBERS 
’((22,229.99)'01234.567 ~1234,567 
1,234.57 (1,234.57) 


FLOATING - 
"--22,229.98"01238.,56 "1234,56 
1,234.56 -1,23%,56 


CREDIT BALANCE NOTATION WITH FLOATING DOLLAR SIGN 
"$322,229.99 CR'a1234,567 7123%,567 
$1,234.57 $1,234.57 CR 


CHECK PROTECTION AND FLOATING DOLLAR SIGN 
'#/$52Z2,229.99'a1234.567 34.567 
**$1,2380,57*29*2$30,57 
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ALPHA LITERAL FOR COLUMN SEPARATOR 


'229,'! | '';:22,229'а3 2912 1234 13 12345 14 19 
12 | 1,234 
13 | 12,345 
14 | 19 


REPEATING A PICTURE 
1229:::22,229,99 СЕ;;''ПП0'';;+19999-'а2 6012 13 14 
123%,567 “95,16 


12 13 14 41,234.56 CR 1,235.57 DD000D0045- 


123 4.00 5.00 0000000006+ 
FIG. 3 ALPHA FORMATTING OPERATOR 
)CLEAR 
CLEAR WS 


)COPY 70 FMS READ 
SAVED 6.02.28 09/22/71 
)COPY 70 PMS WRITE 
SAVED 6.02.28 09/22/71 
VENS 
COPY GBG SAVE 
A+ 1100 
A SAVE 0 1 
)ERASE A 
A 
VALUE ERROR 
A 


A 
А+СОРҮ 0 1 
pA 


(3+A)SAVE 0 1 
5*COPY 0 1 
ч 5 6 7 8 
(2xCOPY 0 1) SAVE 1 1 
5+СОРҮ 11 
8 10 12 14 16 
"АВСРЕРС' SAVE 0 1 


COPY 01 

ABCDEFG 
(2 3 4 5р0 1 0 1 1)SAVE 0 1 
oCOPY 0 1 

2 3 ч 5 


(COPY O 1)[ 152325] 
0.1.0 1 1 


FIG, 4 APL FILE PROGRAMS SAVE AND COPY 


ПЕ, No. 5 


71234.56 
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)CLEAR 
CLEAR WS 

)COPY 70 PMS READ 
SAVED 6.02.28 09/22/71 

)COPY 70 FMS WRITE 
SAVED 6.02.28 09/22/71 


JENS 
copy GBG SAVE 
ҮРИТ 
[1] ‘RECORD NUMBER?" 
(21 440 
[3] "АТА?! 
141 2+0 


[5] D SAVE М,1 
[67 "РАТА SAVED AS RECORD ';NV 


VGET 
[1] ‘RECORD HUMBER?' 
[2] 1440 


131 D+COPY N,1 
(41 "РАТА RETRIEVED, TYPE D TO DISPLAY'V 


PUT 
RECORD NUMBER? 
D: 

3 
DATA? 

D: 

12345 
DATA SAVED AS RECORD 3 

GET 
RECORD NUMBER? 
D: 

3 
DATA RETRIEVED, TYPE D TO DISPLAY 

D 
15012: 3 74.5 

PUT 
RECORD NUMBER? 
D: 

4 
DATA? 

D: 


'PCS/TCC FILE SYSTEM’ 
DATA SAVED AS RECORD 4 
GET 
RECORD NUMBER? 
D: 
ц 
DATA RETRIEVED, TYPE D TO DISPLAY 
D 
PCS/TCC FILE SYSTEM 


FIG. 5 APL FILE OPERATIONS UNDER PROGRAM CONTROL 
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— 
—LOAD 115 CATALOG | 
SAVED 19.31.01 08412470 | 


EYBOARD MAP WITH 114 ACCUPLOT TYPEBALL...PERHAPS IT WILL 
EHELP YOU TO INVENT SOME SUPER PLOTTING APPLICATION. 


KEYBOARD 


aCOMPARE WITH STANDARD APL KEYBOARD 1 


KEYBOARD 
> T « s = x > * у ^ - * | 
1 2 3 s 5 6 ? 8 9 0 x 


^ FEBLING A LITTLE BLUE -- 
11355555 РОТ 35423456 


а PERK UP WITH ONE ОР OUR LINEPLOTS -- 
113455 5 4 LPLOT35423456 


FIG. 6 IBM 114 TYPEBALL AND 987 TYPEBALL 
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SAMPLE ACCUPLOT 


32 


RADIANS 
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FIG. 


ACCUPLOT EXAMPLE 
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x 
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25 


20 


15 


RADIANS 


10 


x 


CHANGE TYPE-BALL 
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)LOAD 987 LIFE ] 
SAVED 10.47.42 12/28/70 
АСНАНСЕ ТО IBM 11% PRECISION PLOTTING TYPEBALL 
LIFEPLOT 9 
ENTER CONFIGURATION USING BLANKS AND ANY CHARACTER, CR WHEN FINISHED 
xx x x x x xxx xx 
xx XXX XXX xx XXXX xx 
x x хх хх 
x x XXXX 
хх X x 
хх хх X 
X X X Xx 
XX x Xx 
XXXX 
xx 
xx 
1 
* 9 W ы» - в 
“le | 
8 i 
2 
zn ў 8 Ч 
а 
a 
9 
3 
? ée ї в 
s 
в 
e 
' 
ЭГ : a 
a 
5 
[4 8-4» ` a 
2 t6 тол „а, 
Q 
6 
` . 
„ oo A š 
в 
7 
a в 
ғ t “2. 
В FIG. 8 
с 4 а 2 GAME OF LIFE USING ACCUPLOT TYPEBALL 
"С 
a 
Ы п 
© t “8. 
[1 
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BP,NO.1 
F,NERTZ 
15000.00 17500,00 20000.00 22500,00 25000.00 27500.00 30000,00 32500.00 35000.00 
воб = 1-2 
. . 


. 
. 
. . 


-26.0------------- ры oce - 
CAIN, DB 
15000,00 17500.00 20000,00 22500,00 25000,00 27500.00 30000.00 32500,00 35000.00 
F ,HERTZ 


FIG, 9 ACCUPLOT OF CIRCUIT ANALYSIS RESULTS 
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A SOME INDIRECT USES ОР LAPLOT AS А CALL FUNCTION 


VROSELUIJV 


У ROSE К.А 


A+(02)x0.005x0,1200 
Y*(10A4)x10NxA 
X*(20A)x10NxA 

3 LAPLOT Y VS X 


SUM 
. : 
en 
are . E 
ЭН EN : 
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VSPIRALLOJV FIG. 10 POLAR ACCUPLOTS 


Я SPIRAL N 

[1]  A4*(02x4)x0.005x0,1200 

t2) Уу+Ах1 ОД 

(3) X*Ax20A 

[uJ 3 LAPLOT Y VS X SPIRAL 8 


SPIRAL 5 . . 


HEWLETT-PACKARD EXAMPLE 1 COURTESY OF CHRIS CLAUSEN 


EQUATION-- В (©) = cos (9.) зім (іт Cos 9) 


SING 
for osos 27T 


THIS EQUATION REPRESENTS A RADIATION PATTERN OF A DIRECTIONAL 
ANTENNA--AN ASYMMETRICAL DIPOLE, THE TOTAL LENGTH OF WHICH IS 
EIGHT WAVELENGTHS OF THE TRANSMITTED FREQUENCY. 


APL PROGRAM REPRESENTING EQUATION-- 


VPFUNCLOIV 
V RePFUNC X 
11) 8-1(200,5хХ)х(1004х20Х)410Х 
v 


EXECUTION OF PROGRAM POLAR WHICH INCORPORATES PROGRAM PFUNC 

AND TRIGGERS HEWLETT-PACKARD PLOT THAT FOLLOWS ON NEXT PAGE-- 
36 
й------ 


FIG. 11 
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POLAR 
SIZE? 

n: 

7 
DEGREES OR RADIANS? 
R 
ANGLE RANGE? 

0: 

.0001, 02 
AUTO SCALE? 
YES 


В RANGE: 7,853981763Е79 2.133624489 
CHANGE SCALE? 
YES 
R SCALE (UNITS/IN)? (0.6096069968) 
p: 
.6 
CHANGE CENTER?--RECT. COORDINATE (3.5 3.5) 
YES 
(X,Y) ? 
0; 
55 
PLTL 


INTERACTIVE APL PROGRAM FOR SUPPORTING 
ACCESSORY PLOTTING DEVICE 


[HEWLETT-PACKARD EXAMPLE 1 PLOT) 


FIG., 12 


GRAPH OF ANTENNA RADIATION PATTERN 


PRODUCED USING ACCESSORY PLOTTER AND 


SETUP DIALOG SHOWN IN FIGURE 11 
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APL* — A Compilable APL Like Language 


R. G. Zwakenberg 
Lawrence Livermore Laboratory 


The APL interpreter provides a flexible and useful tool for development of programs. 
However the interpretive overhead involved is intolerable for running large production 
programs. 


APL* is a compilable version of a restricted APL-like language. designed for use on 

the CDC-STAR with the following requirements: 

1. Produce efficient STAR code -- with a minimum of overhead. 

2. Some compatibility with interpretive system so that the interpreter may be 
used for development and checkout. 

3. Allowance for separate compilations and linkage to other language load modules. 
(e.g. to provide machine-language О functions as well as routines coded in 
assembly and other languages). 


APL* was specified by adding a set of declarations to APL which permit the binding 
of the scope, rank, and type of variables at compile time and by modifying the APL 
definitions for range and domain of operators to reflect the STAR instruction set 
More specifically the declarations which bind. scope, rank. and type. eliminates one 
of the largest sources of overhead. The declarative options available are 

SCOPE: LOCAL (to the function only — not to any functions it may call). 

GLOBAL 
RANK: SCALAR or VECTOR only 
ТУРЕ: ВІТ, CHAR (8 BITS). HALFWORD (32 BITS), FULLWORD (64 BITS) 


Additional options, which have no equivalent in APL, are avilable giving the programmer 
the ability to manage his memory allocation efficiently and allow for manipulating the 
description of his vectors. 


A second major source of APL interpreter overhead comes from checking type and 
size compatability of operands. The APL* compiler will provide automatic conversion 
between all operand types (e.g. allowing the addition of a bit vector to a fullword 
vector. Two intentional deviations from the interpreter are the decisions to treat a 
one element vector as a vector, not a scalar, and to ignore length incompatibility on 
vector operations. 


The following diagram shows the association between APL and APL*. 
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It is felt that, even with the restrictions outlined above, APL* remains a powerful 
language for a large class of problems and retains the “programming is fun” appeal 
fo APL/360. 


APL* is being developed in APL* via the 7600 APL interpreter and will be bootstrapped 
to the STAR. The project is due for completion in early summer. Copies of the APL* 
specifications, giving specific details of the language may be obtained by writing to: 


R. G. Zwakenberg L-67 
Lawrence Livermore Laboratory 
Livermore, California 94550 
Phone: 415-447-1100 ext. 3051 


APL PLUS Enhancements to APL/360 


Lawrence M. Breed 
Scientific Time Sharing Corporation 


APL PLUS is an augmentation of APL/360, undertaken by Scientific Time Sharing 
Corp. (STD) and І.Р. Sharp Associates Limited (IPS). t provides significantly more 
power and convenience to the APL user (and operating staff) than APL’360, with- 

out changes to the APL language. The major additions to APL 260 - the APL PLUS 
file subsystem and the fast formatting primitive - have already been presented to 
SHARE audiences. The facilities described here are. on the whole, less visible to the 
user. Many are of interest to the APL operations staff and not visible at all to the user. 


SECURITY PROBLEMS AND REMEDIES 
Rank Vectors 


APL/360 has had numerous loopholes through which a user can access all of main 
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storage. All of these loopholes involve the indexing of an array that has an invalid 
rank vector. (A rank vector of, for instance 256 256 256 256 can be generated by 
some primitives because fixed-point overflow is ignored when the primitive computes 
the storage requirements for an array result.) 


Although nearly all of these loopholes have been closed, there's always the chance 
that new ones will be discovered. So the APL PLUS indexing routine incorporates 

a check of the dimensions, data type, and storage requirement of the array being 
indexed. Any failure bounces the offending user and prints a warning on the record- 
ing terminal. 


The CONTINUE Workspace 


APL/360 endangers the privacy of any information in the active workspace. Any 
telephone disconnection or "bounce" operation can leave the workspace saved as 
CONTINUE, accessible to anyone knowing merely the user's signon number. (It 

is possible but inconvenient to keep a password on the active workspace so that 
CONTINUE is saved with that password.) In APL PLUS, an active workspace saved 
as CONTINUE with no explicit password, has imposed on it the owner's signon 
password for all references by users except the owner, Thus the owner sees no 
difference in the behavior of CONTINUE. but other users are discouraged from 
fishing expeditions. 


Forgotten Locks 


It is not uncommon for a user to forget the lock he used when he saved a workspace. 
Unless he can remember the lock, the workspace is essentially useless — all that he 
can really do is to drop it. APL PLUS provides a function through which the APL 
operator can, on request, cause the next ) LOAD or ) COPY of a workspace owned by 
that user to bypass the lock checking. Because this procedure applies only to work- 
space references by the owner of the workspace, it does not give privileged users 

(like the APL operator) an entry to a user's locked workspaces. Thus, it helps bait 
out forgetful users without real detriment to workspace security. 


OPERATING PROCEDURES 


User Enrollment 


Several privileged system commands have been made executable via I-beam functions. 
The ) ADD and ) DELETE commands, for instance, for enrolting and removing APL 
users, have been replaced by functions of considerably greater flexibility. New users 
are enrolled through a function that enters them in the APL directory. and builds 
appropriate records in our file-based accounting system. An entire class of new 

users can be entered іп a single operation. Other functions using the same I-beam 

can change user workspace quota, interrogate the APL directory, or do online 
accounting. 


Varying Workspace Slots 


Unless a machine is dedicated solely to APL. it is desirable to allow adequate storage 
for concurrent batch operations but still provide enough space for several workspace 
slots at peak APL load times. APL/360 fixes the number of workspace slots at APL 
system initiation. In APL PLUS, operator functions GETSLOT and FRFESLOT 
allocate and release workspace-sized storage blocks from the batch partitions. With 
the number of 53-kilobyte slots varied from 2 to 6. depending on load. we provide 
up to 200k additional storage for batch use at off hours. 


--: 
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Dual Operator Terminal 


The recording terminal is an evident bottleneck in a heavily loaded APL system. It 
must log all signons and signoffs and receive ) OPR messages. It must also be available 
to the operator to send messages and execute APL programs and system commands. 
The periods that the keyboard is unlocked can cause severe delays in user signon and 
signoff and in operator communication. 


APL PLUS provides for optional use of a second operator signon number and a second 
operator’s terminal. When this terminal is in use, the standard recording terminal is 
used only for receiving. The second terminal can be used for APL execution and 
message transmission. Messages sent from the second terminal are prefixed “OPR:”. 
and are printed both at the recipient’s terminal and at the recording terminal. In this 
way both sides of any operator communication appear on the system log. 


Common Library Management 


APL/360 allows any user to save a workspace into any common library. Although 
there are valid reasons for users to place certain workspaces where they are readily 
available to other users, it is difficult for the operating staff to maintain a coherent 
common-ibrary organization. arranged by subject matter, when APL novices can 
save their workspaces (with whatever names they please!) among the standard system 
workspaces. APL PLUS allows all users to save into libraries numbered 500 to 999, 
but allows only priviledged users to save into lower-numbered libraries. So the 
operating staff has complete control over the most frequently accessed libraries. 


Signoff History File 


At each signon and signoff, APL PLUS writes a record of the event to disk. The 
detailed usage information this file gives is essential to accounting procedures, to 
supplement the cumulative usage figures provided by APL/360. 1t is also usefut 

for analyzing patterns of system load on a port-by-port basis: and. because it contains 
an indication of the cause of signoff, it can help detect and record telephone problems 
that produce bursts of involuntary disconnections. 


THE APL UTILITY 


Protecting Proprietary Workspaces 


An easy way to pirate a proprietary workspace from APL/360 is to save the workspace 
with an innocuous name in your own library, then request a selective duinp of the 
library for transfer to another system. To discourage such attempts, the SELDUMP 
utility operation in APL PLUS has an option to filter out any locked functions or 
sealed workspaces, printing each rejected name on the 1403 as it goes. The operator 
can check these names against names from proprietary packages to determine whether 
they are suspect or are truly innocuous. Of course, workspaces are transferred intact 
in DUMP or INCDUMP utility operations, regardless of their contents. 


Backup Tape Retention 


APL/360 dump tapes are written with an expiration date of 99/365 in the tape label. 
This makes it more likely that an important backup tape will be scratched inadvertently — 
an expiration date that is effectively infinite is in practice nearly the same as an immediate 
expiration date. APL PLUS writes tape labels with the more reasonable retention period 
of 10 days. 


= 
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[ IMPROVED PERFORMANCE AND FACILITIES 
Speedups 


The APL/360 syntax analyzer and several primitives have been rewritten for increased 
execution speed. The overall improvement is typically between a factor of 1.5 and ?, 
and some commonly-occurring operations run 15 to 150 times as fast as before. 


AUTOSTART 


In APL PLUS, a) SAVE command may be followed on the same tine by a semicolon 
and an APL statement. The statement is executed immediately when the workspace 

is loaded. This "autostart" feature has been put to a variety of uses. Two obvious 
applications are in setting up a package for novice use, so that a conversational program 
takes control immediately; and in printing instructions or a warning message whenever 
the workspace is loaded. 


AUTOLOAD 


The AUTOLOAD function in workspace 1 МЕМ takes a workspace name as a 
character vector argument, and behaves much like the ) LOAD system command. 

A “chain job” structure for packages that fill several workspaces can be set up fairly 
easily with AUTOLOAD. The autostart facility begins execution in each new work- 
space, and APL PLUS files carry global data needed by different parts of the package. 
Our PERT system, modelled after the IBM MINIPERT, takes advantage of autoload 
to let the user execute any program in the PERT system without changing workspaces 
manually or cver having to ) COPY anything. 


WALKAWAY — Unattended Processing 


The WALKAWAY function, in 1 WSFNS. conditions the active workspace to simulate 
a) CONTINUE HOLD command the next time program execution stops (after comple- 
tion, an error report, or a telephone interruption.) With this capability. а long program 
can be left to run unattended with the assurance that the terminal will disconnect from 
the computer as soon as the program is finished. 


Backspace and Linefeed Characters 


The backspace and linefeed characters are often needed in APL output: the principal 
obstacle to their use is that they count as forward-spacing characters when an output 
line is being built. APL PLUS allows unrestricted use of backspace, linefeed, and idle 
character vector containing these characters may be of any length and still print ona 
single line, as long as the physical carrier position does not exceed the ) WIDTH setting. 
In consequence, our text editors can underline full-width lines of text, and graphing 
programs can use overstriking to construct multiple-function graphs. 


Horizonta! Tabs 


The system command ) TABS (or the function TABS in workspace І WSFNS) tells 
APL PLUS the physical position of tab stops on the terminal. Henceforth, all output 
takes advantage of tabs wherever possible — consecutive blanks in a printed line are 
automatically produced by tabbing rather than by spacing. With no modification of 
APL programs, terminal printing of tables and graphs can be sped up by about 30 per- 
cent. 


Tabs can be used on input, too — pressing the TAB key has exactly the same effect as 
single spacing to the next tab stop. Visual fidelity is, of course, maintained. 
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Multi-Object ) COPY Command 


The ) COPY and ) PCOPY commands accept names of several objects. and copy the 
objects in a single burst. Besides heing convenient, this takes significantly less system 
overhead than copying objects one at a time. 


Increased Line Width 


12-pitch terminals, with 156-character lines, are available from several suppliers. APL 
PLUS modifications to the WIDTH command allow use of terminals with print lines 
up to 250 characters wide. 


"Character Error" Handling 


In the presence of a line of input garbled by transmission errors, or containing an 
illegitimate oversturck character, standard APL/360 requires the re-entry of the entire 
line. APL PLUS, however, repeats hack the legible portion of the line and lets the 

user retype only the portion containing the erroneous characters. (When you're work- 
ing with noisy telephone lines, this feature ranges somewhere between "very useful" and 
“а lifesaver”.) 


)SEAL — Unifying an Application Package 


A workspace containing a group of functions and variables that are designed to operate 
as a unit may be "sealed" to prevent modification or dispersal of its components. 
Execution of ) SEAL locks all functions and inhibits erasure or copying of objects from 
the workspace. A ) COPY of a like-named object into the workspace is ignored, as with 
) PCOPY. 


An extension of ) SEAL now in experimental use allows the insulation of particular names 
from any acvess other than by the functions that compose the package. Thus it is possible 
to prevent direct keyboard use of auxiliary functions and variables that are intended for 
use only within the package. This extension also helps plug a significant loophole in the 
security of locked APL functions — namely. that a user can examine or modify a function's 
local variables while execution is suspended. 


Suspension Within Locked Functions 


The XM6 version of APL/360 differs significantly from earlier versions in its handling of 
errors and attention signals during execution of locked functions. In the XMI version. 
such an interruption causes execution to be suspended at the point of interruption, 
where it could be resumed by the user: but in the XM6 version it causes an immediate 
exit of all locked functions that are in execution or are pendant 


This has several undesirable effects. For ex imple, when a user reports problems with a 
package that uses locked Functions. the designer of tlie package cannot examine the 

user's workspace at the point of interruption to determine the cause. Another undesirable 
effect is that much execution time van go to waste лое on a telephone line can simulate 
an attention signal and cause cancellation of a program that has been computing for many 
minutes or even hours. 


APL PLUS avoids these problems by retaining the error handling procedures of the 
ХМІ version of APL 360. 


SUMMARY 


This paper has discussed some of the APL PLUS facilities that make APL 360 a better 
system. Some of the facilities are of direct benefit to the APL user. like the execution 
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speedups and the autostart and autoload features: other facilities, like the dual operator 
terminal and the improved protection of user privacy, benefit the user only indirectly 
but improve the quality of the system as а whole. In all cases the improvements have 
been made without affecting the APL language. There is no change in the meaning of 
any APL symbol, no reference to the machine-dependent representation of data with- 
in a workspace, and no modification required to existing APL programs. 


Discussion at SHARE March 6/10, 1972 


There was considerable discussion of IBM’s reluctance to implement with a significant 
degree of promptness, accepted resolutions. Primarily the response is that these actions 
cannot occur swiftly without due review of generality considerations. It was pointed out 
by Project members that some of the resolutions that were accepted by IBM are now a 
year old. 


Everett Allen (ІВМ) indicated that there have been about 50 fixes on APL - some OS, 
some DOS, some both. Users now have Ver. 1, Mod 0: a new "refreshed" system will 
be Ver 1, Mod 1 when and if distributed. 


As noted in the SHARE XXXVII (М.У С.) minutes, IBM prefers that all fixes he put 

on the APL systems. This differs from other systems (such as OS). А poll of the attenders 
indicated that this was not being done in many installations. Apparently the Р.Е at 
local branch offices are not communicating with RETAIN or the user as much ay they 
should. Mr. Allen indicated that an APAR is communicated through RETAIN it it 
consists of less than 21 lines of source code. Over 20 lines renders the fix a candidate 

for а PTF and is sent through PID. (5734XM641 is the FE number for RETAIN). 


R. Bell (UR) proposed the following resolution which was accepted by the Project 
members: 


RESOLVED: APL 72-01 Administrative Changes in the Distribution of Fixes to the 
APL Program Product. 
Whereas there have been a number of fixes to the APL Program Product: 
and whereas there has been no new version nor modification level of APL: 
and whereas there are sites which have not installed all applicable fixes: 
and whereas it has been ІВМ? practice to supply information about fixes 
only as the individual resident FE specifically asks about an error condition 
through RETAIN 
Therefore be it resolved that IBM 
1) Collate and release to all APL installations at regular intervals a listing 
of all current fixes and their indications for usc. 
The first such list is to be cumulative from the introduction of the 
Program Product. Subsequent list (tike TNL’s) should include back 
reference to previously distributed "fix" lists. 


2) Periodically make lable new releases or modifications of APL 
incorporating atl fixes to date. 


It was agreed that this resolution be brought to the attention of the Program Products 
Division. 
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Further Discussion 


The question of future CRT support for APL in conjunction with hard copy output 
was posed to IBM. The response was that the entire question of APL CRT support 
was “пої yet formalized”. Several members indicated that Tectronics, Conagraphic, 
and Datapoint were working on CRT support for APL. 


The next topic discussed concerned the collection and distribution of APL algorithms, 
programs, program packages, and user modifications to the program product. What 
agency should be used? COSMIC, the SHARE Committee for library distribution, 
ACM, Quote-Quad, SSD, and others were discussed. The U. of Waterloo volunteered 
their APL file system as a collection and inquiry location. (This was discussed in a 
March 7 Birds of a Feather session and is was decided that the Waterloo system 
would be used as a beginning effort, with ensuing summary information to be printed 
and distributed at a later time.) 


Some minor user problems were discussed. One user indicated that his installation 

runs without a O-terminal (an operator's privileged terminal). The question of the 
accepted value of 2:0 was discussed. Most people would preter a DOMAIN ERROR. 
The obvious problem would be that many functions are written with the expected 
value of (0:0) =1. В. Lathwell (IBM) offered that the Philadelphia Scientific 

Center agreed that it should produce a DOMAIN ERROR, but “there is no great rush”. 


Increased system efficiency is a highly desirable trait for APL users. Other APL systems 
have accomplished this. 


IBM indicated that there is a fix for quad-divide to improve the flagging of singular 
matricies. 


lt was suggested that it is highly desirable to capture error messages (for purposes of 
printing something significant and relevant to the host function). 


The overwhelming request for a file subsvstem was again voiced by the membership. 
The APL community wants it as soon as possible und is perplexed that it is not 
yet available from IBM. 


G. Foster discussed other APL implementations - specifically those of Burroughs. 
DEK, and XDS. which are imminent. A brief capsule follows: 


|. Burroughs - 65757 and c are implemented. 
— the scan function is implemented 
- additional function editing facilities exist 
= STOP and TRACE enhanced 
2. DEC (PDP10 teletype supported 
=  input/output facilities embellished 
= execute function implemented 
- indicative messages produced on PCOPY's 
= can copy lines from other functions 
— shared variable subsystem 
- line printer can be used 
— S available for formatted output 


3. XDS — execute function implemented 
(Sigma — scan function implemented 
7&9) — m to be the output formatter 
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It was pointed out that SHARE has asked IBM for many of these features: many 
have been accepted. They will be available from other vendors 


Future topics for discussion in the APL Project 


A. What is the need for production APL? What kind of changes are needed to 
make APL a viable production tool? How much more efficient should APL 
be? How much are users willing to pay? Two arcas for investigation are 
the administrative (system) and interpretive components. 

B.  Practicism in current APL - good practices relative to time and space trade- 
offs. 

С. User modifications. 

D. Sharing of programs. 


Comments On APL Quote-Quad Vol. III No. 2:3 


W. N. Holmes 

Systems Development Institute 
IBM Australia Ltd. 

80 Northbourne Avenue 
Canberra ACT 2601 

Australia 


Introduction 


In the following, references to issues of APL Quote-Quad will be given in the form 
QQ[a:b:c], where a is the Volume number, b is the Issue number. and с is the page 
number, 


The Dollar Sign 


ООГЗ:2 3:3} relates that, at the Share Conference APL Project Meeting. "considerable 
discussion ensued concerning what character might be used for the dollar sign (S) and 
what effect this might have on users”. 


Previously. ОО[2;6;261. Share XXVI had passed a resolution to "make the dollar 
sign. (S, backspace, vertical bar) a legal character for input and output." Now, the 
vertical bar might be replaced by the slash to avoid trade mark disputes with the 
Singer Sewing Machine Co.. or simply because it looks better (see QQ|3:1:28] Y. 
But what other factors could have caused Share to indulge in such evidently lengthy 
debate, and to ignore or rescind their earlier and apparently satisfactory resolution? 


A more interesting discussion could have hinged on the status of the dollar symbol 
in the APL language. Should it be merely an alphabet extender with incidental 
implications when used in strings of numeric significance? Or should it he reserved 
for sanctification as an operator? 


A perhaps more interesting role would be as another sign for numeric values, In this 
case, numeric values entered with a dollar sign would automatically be kept as cents. 

and would, on output, be decorated with the appropriate dollar symbol and decima! 
point. The dollar sign would be subject to dimensional analysis. so that an attempt 

to add or subtract two values, only one of which is currency, would vield a domain error. 
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Similarly, an attempt to multiply two currency values would yield a domain error. 
Division of two currency values would remove the dollar sign. Division of an ordinary 
value by a currency value would yield adomain error. The dollar sign could easily be 
added or removed through multiplication or division by $1. 


The occurence of a dollar sign and a negative sign tother could be shown on 
print out (or entered) as а floating dollar sign and a trailing negative sign. or 
perhpas by underlining to dramatise the unfortunate event. 


Certain conventions could be applied to formatting of currency values for printing. 
Two digits of cents, for example. could always be shown, whether or not the least 
significant is zero. 


APL File I/O Systems 


ОО [3;2 3:5 6 7] gives a summary of Mr. Ракой presentation "A Survey of 
Experimental APL File and 1/O Systems" which was later printed in full in the 
proceedings of the "Colloque APL”. 


Other File 1/O extensions are noted in ОО [3:2 3:27 28] (7) INCLUDE” in APL 
on Honeywell 635), QQ[3: 1: 7 8] (dyadic I-beams on CDC 6600 and 7600}. 
00(3:1:15 16] (SEAS suggested card image reading and writing), QQ[3:1:20] 
(APL/6500 “addition of some file handling capabilities to command mode”). 
00[2:67.. 11] (APL-FIOS; APL-FIDOS I-beam embedded in predefined functions), 
and 0012,3:4 5 6} (APL Plus - predefined functions). 


The continual discussions ot tile capability (and of compilers and of execute capabil- 
ity? are usually positively inclined, and one is left waiting for the voices ot caution 
to oppose hasty provision of these features. 


Surely caution is warranted. Or do users in general believe that the APL language 
should be so extended (and extended... 22 


APL, the language and the system, seems very nicely suited at present to small scale 
arithmetic and character manipulations. Providing pretentious file handling abilities 
to the system or Janguage might take the use of APL outside its natural domain. and 
it may thereby lose its beauty. For comparison, a Siamese cat would not necessarily 
be improved by the addition of a thirty eight inch bust. 


To keep APL from peril. many of the more sober user requirements in this area could 
be satisfied by quite modest, safe and versatile extensions to system commands. As 
illustration, consider the following. 

JSTORE name optional-entity-list 

JRESTORE name optional-entity-list 
Here, the entities in the list are STORED from the active workspace under the name 
given, to an area outside any workspace. They may be RESTOREd en bloc or select- 
ively to the active workspace. 


Names for these commands would be of three types. 
Preset and functional! names (e.g. CARD, PRINT) would transfer groups of 
entities between the active workspace and external media. 
Preset and shareable names would have various aspects of their use controlled 
by lock and/or sign-on code. 
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Temporary names not preset would be initiated when a user ) STOREs using 
that name; would be only КЕЗТОКЕаЫе by other users; and would vanish on 
user sign-off. They might usefully be qualified in external storage by the user 
identification. 


Advocates of more elaborate systems sould beware of killing APL by kindness. 
Complex Numbers in APL 


QQ [3;2 327 22 23] proposes “that the basic numeric entity іп APL be a complex 
number”, Whether or not this proposal should be accepted, the accompanying detaits 
do not have the brevity, aptness and style usual in APL. 


There is not need to introduce new symbols. As Larry Breed QQ[3:2 3] probably 
suggested, the letter I" can be used as a sign separating the two parts of a complex 
number, much as the letter "E" is now used as a sign separating (he two parts of a 
floating point number. The examples given then become 3X and 


3 314.7 
015 4,711Е"11 


The use of an expression to represent a number is thoroughly cumbersome. Also. 
therc is no need to use the alpha as an argument operator while the omicron (circle) 
operator readily gives an arctangent. 


The transpose operator should not be used us complex conjugate operator. since a 
matrix of complex values could not then be simply transposed. The real and imagin- 
ary parts of a complex scalar or array could be got by taking the 9E99 and 019Е99 
residues respectively. In addition, the monadic plus operation could be defined to 
yield the real part of a complex numeric value, and the imaginary part could then be 
expressed as 2-%2 


In any case, new operators should be introduced only with extreme circumspection, 
and overstriking with a diaeresis seems suddenly a little too popular (QQ [3:1:8 91). 


Trapping in APL 


QQ[3;2 3:42] proposes the use of a predefined TRAP function to set single line traps 
within a function. Now trapping would seem to be a reasonable facility to be able to 
use within a function definition. However, a capability more wholeheartedly embedded 
in APL would be preferable. The scheme suggested below is given to illustrate some 
possibilities. 


Let every non-zero line of a function definition be able to be accompanied by a line 
with a corresponding negative line number. Let this accompanying line be termed 
the “trap line" of the line being accompanied, itself termed the "main line”. 


Main lines without trap lines are effected as at present. Trap lines would be evaluated 
if their main lines encounter error. Unless a trap line explicity branches, the function 
is terminated after the trap line is evaluated, If a trap line encounters an error, the 
error sticks. Branching to a negative line can remain invalid. 


Trap lines would accompany their main lines in function editting. Thus, erasing a 
main line would also erase its trap line. Inserting a new line would change the line 
numbers of subsequent main lines and accompanying trap lines. 
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In parenthesis, it should be noted that the nced for trapping could be significantly 
reduced if the size of unspecified variables could be returned as negative onc. 


Concerning Literal Constants 


ОО [3;2 3:44] has it that “Special treatment of quote marks in the input stream thus 
adds a complexity to the system that even a rank beginner is forced to acknowledge". 
The same article does not identify what this special treatment is, but does go on to 
propose special treatment for carrier return and backspace characters which certainly 
does add to the complexity of the system. 


The present system is fairly consistent in treating carrier return and backspace 
characters much like any other character, and although the beginner is often 
caught by his own failure to close a character string. his problem is easily 
diagnosed, is dramatically simple to explain. and is effective in teaching him 
to close character strings. 


The usefulness of being able to type carrier return characters within character strings 
is demonstrated by the prevalence of DESCRIBE variables within workspaces. 


Tracing 


ОО [3;2 3:45] raises again the usefulness of tracing. Certainly. the feature is very 
useful. However, the initial stages of tracking down a bug can be very tedious, as the 
output from the tracing can be extensive and not very revealing 


If tracing on line zero were to yield a trace output on entry showing the function 
name and its argument values, and a trace output on departure showing the function 
name, the returned value, and the time spent within the function, initial investigation 
of problems would be much simplified. 


Traces could then be removed by assignment of a null vector. 


New Monadic Operators 


Certain suggested monadic meanings for operators at present only meaningful in 
dyadic use have been rejected in favour of possible and as vet undevised better uses. 
The idea is that these monadic operators would be wasted if such a better use turned up. 


The monadic meanings in question are for drop. take and the relational operators. A 
monadic drop or take should be as a dyadic drop or take with a left operand of the 
appropriate number of ones. A monadic relational operation should be as a dyadic 
relational operator with a zero left operand, except when the right operand has character 
value and the operatoris = or # in which case the left operand should be taken 
operand should be taken as a blank. 


These monadic meanings seem as simple and natural a development of their dyadic 
meanings as any monadic operation at present in the APL language. Given this. a 
"better" use is unlikely to turn up. 


As to the possible waste, a perusal of the table below should show that the proposed 
monadic meanings will not be wasted, as they will be useable about a third of the time 


The table is based on a quick perusal of APL Quote-Quad Algorithms 20 to 76. Col- 
umns a to c relate to drop and take, and columns d to f relate to the relational oper- 
49 ators. Column a gives a count of the number of uses of take and drop with a non- 
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literal left operand, column b counts the uses with a literal left operand where the 
monadic operator could not have been directly substituted, while column с counts 
Occasions when the monadic operator could have been directly substitued. 


Columns d e and f similarly dissect usage of the relational operators. Uses in inner/ 
outer products and reductions have not been counted. No recoding has been under- 


taken, though some algorithms abound with one subscripts. Note that monadic = 
cannot be used in the function TYPE in Algorithm 25. 
a b c d e f ое яў ge М 
20 3» 14-22 24 1 50 Fr 3 
21 2 2 1 53 1 
22 2 2 6 54 1 l 
24 l 55 1 
25 | T 3 56 l 
2 29 9 ғы 57 > 8 1 = 
28 1 58 = 1 
29 1 59 1 
27 7 23 38 1.3 | 5% e р СИН ДЕР 03 
a b c d e H Ж» cde ар, do 086 t 
30 1 60 =. 3 
31 2 62 1 
32 > 65 ! иг: 
33 1 ў. 304.3 66 би а.а 
35 16 2 8 67 1 
36 21 1 68 Вата 1 
37 4 2 1 69 2 2 
38 3 14 
39 3-6. 9 X^ 1 
35 4 8,32. 33. 25 6* 3 3d 9:10.10 4 
a b c d e | a o5 ай й. Ge I 
40 1 70 4 1 S a Я 
4) 4 71 6 1 
42 1 1 4 42 ! 
43 ! 73 1 
44 гат 7 74 1 5 
45 1 75 3.350. ar 
46 2 3 7 3 4 76 4.32 11 
47 22 e 46) 2. 535 2 
48 2 
49 1 1 
4* 4 4 7 M 23 13 7 17 6 14 5 10 14 
ЫЫ 8 19 17 91 69 49 Wp... or IL 4538 Же. У 24 
In short, the count is 142 for dyadic use with left expressions. 124 for dyadic use 
with left literals, and 125 for monadic use. The figures should not be used to compare 
relative use of take and drop compared to relational operators, as many of the algor- 


ithms were written for the old 1130 APL, which lacks take and drop. 
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calendar of events 


Fourth APL Workshop at the Georgia Tech. Campus, June 15th and 1615. 1972. 
Information from: 


Mr. T.J. McConnell, Jr., 

Atlanta Public Schools, 

218 Pryor Street, 

ATLANTA, Georgia 30303, U.S.A. 


correspondence 


The Editors, Quote-Quad 
Dear Sirs: 


Mr. Neville Holmes (IBM Systems Development Institute, Canberra, Australia) has 
made several comments on the features of UMASS -APL discussed in the October, 
197} issue of Quote-Quad. It is hoped the following replies will further the con- 
structive discussion on these subjects. 


Error Traps 


Mr. Holmes suggests considering the possibility of associating a trap line (having a 
negative line number) with main lines of functions if special processing of errors is 
desired. The trap line would be performed only if an error were detected during 
processing of the main line. Part of the motivation for this approach is that it 
would be “more wholeheartedly embedded in APL” 


The UMASS- APL approach may appear to be less integrated with APL because it 
requires dyadic I-beam functions to communicate with the system Can ad hoc 
arrangement). However. it should be remembered that the functions DIGITS, 
ORIGIN, and WIDTH also have side effects beyond the explicit results they return, 
As long as we already have APL functions which әрріу to objects other than APL 
arrays in the active workspace. perhaps we should focus more attention on grace- 
fully incorporating more functions having extended domains in APL teg. to do the 
jobs of all the system commands). 


Consider the relative merits of three possible error trapping systems: 


І. Associate an error function with the workspace (to handle error conditions 
of one or several specifiable types). An error would cause the designated 
function to be performed. This sort of feature has found use in other 
languages. It could be used, for example. to change the output unit number 
when а tape ree! becomes nearly full. However, for most APL error 
conditions the erroneous line cannot be continued as if nothing had happened. 
This means the trap function cannot return to the function in use before it 
was called. Remedial action is rendered impossible. For present APL needs 
this appears to be a fruitless approach. 

Declare one line of the function to be the trap line. This will serve whether 
one is interested in a particular error, an error in a particular line, ога 
particular error in a particular line. Mr. Holines has awakened us to the 

51 possibility of applying a trap vector (analogous to a trace or stop vector) to 


ta 


= 


422/ APL QUOTE-QUAD 


select certain lines for special treatment of errors, all other lines giving the 
standard error report. 

3. Associate a trap line with each main line of a function. This is more cumber- 
some than (2) when one is interested in a particular type of error regardless of 
where it occurs, but may be more convenient when the error recovery differs 
for various lines. 


Both (2) and (3) seem to have the same capabilities, Although (2) might occasion- 
ally be less convenient, the difference is only apparent to the proprietor of the 
package which uses it. It is feared that the negative line numbers of (3) would add 
complexities to function editing which would be noticed by many general users. 
For example, what should be done if a user types a line (or many lines) having a 
fractional negative line number, what line will the trap line be associated with, and 
how wil! lines be renumbered? It is feared that a plethora of such problems would 
arise, and each would require discussion in reference manuals. 


Literal Constants 


Mr. Holmes suggests that the UMASS-APL use of overstrikes to represent carrier 
return and backspace characters used as data in literal vectors complicates the 
system. Actually it involves only a slight alteration of the character code con- 
version tables. 


The APL/360 system certainly does not treat backspace and carrier return 
characters like any other character. The backspace in input always serves to 
reposition the carrier (it never causes a character to be entered in a literal vector). 
but the carrier return sometimes represents a character to be entered as data in a 
literal vector, and sometimes a line completion signal. 


The UMASS-APL treatment of these two keys is more self-consistent: the back- 
space key always repositions the carrier, and the RETURN kev always signals the 
end of an entry. When backspace or carrier return characters are intended as data, 
they are represented by overstrikes. The particular overstrikes used for UMASS— 
APL are mnemonic, but difficult to read (overstruck C and R for carrier return, 

B and S for backspace). We welcome suggestions for other representations. 


James H. Burrill, Jr. 

Clark Wiedmann, 

University Computing Center, 
University of Massachusetts, 
Amherst 01002, 

U.S.A. 


The Editors, APL Quote-Quad 
Dear Sirs: 


Concerning composite operations 


Even though I have a reasonable acquaintance with the composite operations in 
APL, I have more than once tried to substitute an inner product for a reduced 
outer product: 


А +.x B +/ А е.х B 
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These expressions are, of course. not equivalent. since the inner product involves 
an equal-length conformation and a diagonalizing transposition 


+/ PRA. В 
where P collapses into a single coordinate the two adiacent ones which came from 
A and B. 


To reduce the temptation to make such an inappropriate substitution, | urge that 
the small circle (or the period) be dropped from the notation for outer product 


А .х B 


Syntactically, this produces no conflict and simplifies the analysis. T suggest 
implementation in these phases: 


l. Immediate patching to permit omitting the extra character. 


2. Provision in the next release for the s r to prohibit use of the 


old form, and make the following changes. 


m manag 


3. Imposing the requirement that the outer-product notation be used when 
combing a scalar with un array. so that ordinary operators will give an error 
message for any discrepancy in operand dimensions. (Sec Mr. Holmes’ letter 
in УШ n. 4 p. 27) 

4. If anyone can find a need for it, reintroducing the old form ах а special case 
of the inner product. applying the first operator. selectively, but performing no 
reduction. 


Concerning repeated indexing 

Mr. Holmes (in v. Ш n. 4 p. 25) discusses an carlier question regarding the possib- 
Шу of repeatedly applying indexing brackets to a single object. If VI. V2 and V3 
are vectors, then these two (equivalent) expression yield no Rank or Syntax errors 


ViLv2LV31] (1tv23) E731 


The question is, what should happen with: 


ViLtv21tv3i 


Since indexing is presently accorded the privileged status of taking precedence over 
adjacent operations, and only the left-most bracket is adjacent to an immediately 
indexable object, it would be reasonable to admit this third expression as equival- 
ent to the first two. 


In order to eliminate the anomalies both of privileged operation and of left-to- 
right application, 1 propose that a separate symbol be used for the operation, and 
that ordinary parentheses enclose the index list, when necessary. The three express- 
ions above could then become: 


Vig(v2gc3) ) (Vim(V2))0(V3) VigCV2)g(Y3) 


or, by the standard rules of non-precedence: 


Vigv2gya (V18V20)8V3 Viiv 2973 


| 
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Adoption of this form of operator eliminates the possibility of a questionable third 
form, because it is completely consistent with the standard syntax. Here are some 
more examples of this form, in which M is a matrix and S! and S2 are scalars: 


М151:821 M3(S1;52) 
М851;52 
(ML51; 1) [521 (№851; 852 
(M[V1;l)[;V2] (MgV1;)9;V2 
V1[S1]+V2[S2] (71851)+72852 


All these examples assume. of course. that the semicolon becomes а general list- 
forming operator, divorced from brackets und output. and subject to parenthetical 
nesting. (It is only a small further step to permit storing such a list for delayed 
application as index or report.) 


With both the standard and the revised indexing operations. the index list is formed 
before referring to the array, requiring the use of two types of operator. Another 
alternative is to apply indices as they are encountered, so that only one operator is 
needed. For consistency, this type of operation would have the index on the left: 
for convenience, it could permit a coordinate index as well: 


VitV2LV31] {УЗМУ2 М1 

(vıLv23)[v3] V3MV2MV1 

M[ ;52] S2MM 

MLS1;52] S1MS2MM 

MES1; ] S189L 11M 

M(V1;V2] У1М[1 ]У2ММ 
V2RC2 YV18L 114 


The coordinate indices become necessary with sub-array selection because each 
application must operate on the last coordinate of the value presented to it, 
regardless of previous selections. 


Concerning negative dimensions 


Mr. Holmes also suggests (p. 26) giving a length of -1 to all valueless names. I 
quite agree with the need for being able to test existence without stopping à 
program, but before this particular mechanism is adopted for и. І would like to 
speculate on the consequences of admitting negative lengths in general. The array- 
creating operators could be extended rather naturally: 
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S 
П +З + 73 ро 


000 
O+ Mee. 4 
7% 737271 
The resulting objects would have non-positive index ranges: 


О + N3L 2] 


Ü < wala] 


INDEX ERROR 


They could be catenated to one another in predictable fashion. When catenated 
to vectors of positive length, however. the shorter operand would be annihilated. 
as would an equal number of adjacent elements in the other one 


О + #7 + 53 , Nu 


0007573 271 


0 45871761 | 
° 

0+0 + М3, 4 
4 

O+p@ 
1 


Higher-dimensional objects could also be formed with some negative-length co- 
ordinates, since each coordinate influences the result of a selection or combination 
independently from the others. Negative-rank arrays could be formed by restruct- 
uring with a negative-length vector. 


Combining negative-structured arrays with others of similar structure should present 
no problems; neither should combination with a scalar or reduction. It might be 
desirable to permit combination of values whose dimensions differ only in sign. 
first reversing each negative dimension which is to be combined with a positive one. 
At the moment, I do not see any great value in such an extension. but omeone 
has a problem area involving frequent nced for array annihilation or implicit co- 
ordinate reversal, this may be one means of simplifying his programs. | 
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Concerning controlled extensions 


I would like to see an implementation in which each user could determine for him- 
self which of the available language features he will be allowed to use. For each 
feature, he could set an indicator controlling whether the system should: 

Stop with a message when the feature is used: 

Trace or list its use whenever it occurs; 

Execute normally; or 

Suppress normal error messages and supply default result. 
Beginners could then be shielded from some of the "strange" effects of empty 
vectors, or could watch clearly the behavior of some aspect of the system. Experts 
could wander beyond the usual bounds of the language at their own risk. 


Arthur L. Anger 
Wellesley College 
Wellesley, Mass. 02181 
23 March 1972 


Editors, Quote-Quad 
Gentlemen: 


Enclosed is a copy of a request of implementation of a new APL primitive that I 
have been crusading for. 


Request For Implementation Of New, Much Needed. Primitive 
Operator In APL/360 


Description: A non-scalar monadic function, for the purpose of this 
description to be known as the “AT” function, and 
symbolized by A. for mnemonic reasons. The “AT” 
function does essentially the same as the APL statement. — 


A/ipA 


where A is a logical vector. The results of "AT" would be 

a vector of indices, and be origin dependent. The use of 
“AT” would be subject to the same constraints as the monadic 
not ~ ). 


Justification: The statement 4/104 or equivalent forms are very prevalent 
in APL programs. The primary benefits of an “АТ” primitive 
would be savings in workspace needed for execution and 
execution time. 


Example: For the simple task of finding all occurrences of a single element, 
call it A, in a vector, call it B. the best method currently 


available is — 
(3=A)/ıpR 


with the A operator it would be — An=A 
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The savings in work area would be approximatley 3200%. The 
saving in execution time would be (in my estimate) 120%. 


The reactions of many good APL programmers to the A operator have all been favorable. 
as the usefulness is readily apparent. Due to the limitation of 32K workspace. the 
addition of a new operator with such space-saving potential can easily outwe 
trouble in its implementation. 


In your March issue, someone suggested that implementation of a monadic encode 

T  toreturn the base 10 value of the right argument. | don't think this would be 
avery good idea. As І see it. the monadic encode should return the base 2 salue 

of the right argument, only the result should be binary rather than integer. as it іх 
now. This would enable much larger data handling capabilities and greatly improved 
speed because the base 2 is a special case (since integers are already base 2 numbers 

in the computer). The addition of a monadic encode (base 2) would help solve APL’s 
large data problems. 


Submitted by: Kevin Farrell - CAT programmer 
Golden West College 
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algorithms 


Number 89 “Instant CAI” 


Dick Conklin, 

IBM Field Systems Center, 
973 James Street., 
Syracuse, N.Y. 13203 


ENTER allows the teacher to write a CAI session by specifying 

1) the question 

2) correct answer 

3) acorrect answer response, 

4) a hint, for as many questions as he wishes to enter. 

The student uses DRILL to execute the sequence. ENTER can also be used to add 
new Q + A'sto a series. (SAMPLE + ENTER SAMPLE). I call it "Instant CAI", 


VERTERLO)V 


Я ZENTER X;N 
8:((0Х):320)41:".! 
>(0=p4+M)/D 
Х+Х , (804¥) ,80+M 
Х+Х , 904 
Xx, 8047 
er 


mannanna 


osourunpm 
cu 


a 


VDRILLEN]IV 


Я DRILL X;,I;F;N 
[1] 1+0 
[2] 85:+((1+1+1)>(рх)1:320)/ЕМР 
(31 Х[ 7+ (320х7-1)+180] 
[uJ A:+>(A/('STOP'=u+H+<0m))/FHD 
[5] >(0=0N)/TRY 
[61 *(A/CCOCL7 4801) 2802) )/RIGHT 
[7] "NOL HINT: ';X[P+2u0] 
(81 *+*(A/((xX[(”+8ñ0]J)=80+9))/?IGHT 
[9] "THE CORRECT ANSWER IS: ';Х[7+80] 


[10] +5 
[11] RIGHT:XLF+160] 
[12] +5 
[13] ТАУ: 'СОМЕ ON, TRY SOMETUING:' 
[15] +A 
[15] END: "DRILL ENDED,* 
v 


Я 
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SAMPLE+ENTER '' 
1. 
УЛО WAS BURIED IN GRANT'S TOMB? 
GRANT 
LUCKY GUESS 
I'LL GRANT YOU MORE TIME 


2. 

WHAT IS THE SUM OF 17 Айр 12 ? 
29 

VERY GOOD! 

1+1=2 AND 7+2=9 


3. 


DRILL SAMPLE 
WHO WAS BURIED IN GRAUT'S TOMB? 
LEE 
HO! HINT: I'LL GRANT YOU MORE TINE 
GRANT 
LUCKY GUESS 
WHAT IS THE SUM OF 17 AND 12 ? 


COME ON, TRY SOMETHING: 
30 

NO! HINT: 1+1=2 AND 7+2=9 
29 

VERY GOOD! 

DRILL ENDED, 


Number 90 Printing 


James H. Somerset, 

Associate Professor. 

Department of Mechanical and Aerospace Engine. 
Syracuse University. 

Syracuse, New York 13210 


Three programs have been devised to print, using APL programs. decimal scalars, 
integer scalars, and vectors in a uniform format. The programs are called 
IPRINT 

VPRINT 

PRINT 


The general formats are: 

PRINT X Y Z 

Where X is the number of spaces to be taken by the print. Y is the number to be 
printed, and Z is the number of decimal places to be printed. If Z is omitted. the 
number is taken to be 2. 

РАМТ ХҮ 


Where X is the number of places to be taken by the print. Y is the number to be 
printed. 


25221 
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VPRINT X Y 
Where X is the number of places to be taken by each element printed, Y is the 
vector. 


VPRINTLOJV 
У T<PRINT Х;8;4 
(11  T-(IPRINT(XLA]-N) ,4), ' . ' ,,'. 0123456789'[2+(Np10)TLO0.5+((}A)-LI 


(A<*X[2]))x10*#8<(((pX)=3)x 14X) *(CpX) #3) x23 


VIPRINTUOJV 
У Z-IPRINT X vd 
[1] Ze’ 0123556789 'C(XL114 ((C72-1E2120)*(2»2)11)0 1), (71+11хХ[2]<0)) 


*(2«L2.5* (XC 11010) 7L [XE 2723 


VVPRINTLO)V 
V ZeVPRINT X;N 
[1]  Z-0p(N-2) 
[2]  Ze,Z,PRINT XL11,XLN1 
(31  »2a(pX)2NeN*1 


PRINT 10 5.8947 
5.89 


PRINT 10 5.8947 4 
5.8947 


PRINT 10 5.8947 1 
5.9 


VPRINT 10,МГ1:1 
7.32 КП 7.95 1.27 


VPRINT 10,M[;2] 
У 


2:1 
71.00 1.00 72.00 2.00 
VPRINT 10,МГ3:1 
72.86 3.18 7.32 .6u 


m NOTICE THAT THE LINE-BY-LINE PRINT OU T OF THE MATRIX M CAUSES THE 
DECIMALS TO LINE UP 


IPRINT 50 489698 

489698 
IPRINT 10 4657.9 
4657 


60 


June 8, 1972 - Vol. ІІІ, No. 5 /431 


61 


Number 91 Vector of equal increments 


Bruce Beebe 
831-A Prescott 


Riversid 


Ото 100 25 can be read as PL/I style O to 100 hy 25. 
This function is quite useful in supplying arguments to functions for graphing, ete. 


0 25 


5.1 


Number 92 Rational Approscimations to functions of the normal probability ! 


Many years ago Peter F. Strong. of Arthur D. Lillte. Inc... developed rational 


approxi 
distribu 


Enclosed is a display of the function PP tor which each of the 6 possible left arguments 1 
corresponds to one of these functions. The maximum error in the approximation is 

generally less than 2%, except for the inverse of the partial expectation function, which 
has a maximum error of 4%. The partial expectation function is sometimes called (by р 


Howard 


[1] 
[2] 
[3] 


[5] 
[5] 


[6] 
(71 


Св 
[9] 
[10 


— 


е, Са. 92507 


7700077 

RA TO В.С 
+(((х8+148-А)#хС),1#0+10(1+8),1)/ 3 4 
+0, RA Ati LB 

>0,оП«"ІМСОВВГСТ INCRIMERT? 

RA, AtCurL Bil і 


0 70 100 25 
50 75 100 


5.1 TO 717.8 “3.4 
4147 “7427 5.1 8.5 11.9 715.3 


distribution. 


mations to three functions. and their inverses. of the normal probability 
tion. 


Raiffa. for example) the linear loss function 


VPPLD]V 
Я RW PP X 
+(EX.EX,EX.XP,XF,XE)(N] 
BX:+0,R<(* 0.5х(%2)%(02)ж0,5 | 
AE: +0 Fe 2xe@(((+o2)*0.5)L1[* 15)x(o2)+*0.5)* i 
EX:90,R-(1 PP X)-Xx2 PP X | 
ХЕ:Юе(0.175922414Х%0.044212641)%0.0012267386%Х% 
0.00030570313 | 
Re(Xx(0.4442135-0.0706145xX))=1.7529479+R 
>9,Ве(цхХ<7.1876)%(-ХхХ>4)%(ВхХ-0.39894228)х(Х<ш)хХ> 
7.1Ё 6 
EX: R+6.76151+0. 9123xY#2 
R+R+21.8468+(X*2)x7.03823+X4%*2 
1 Ве0.5-Хх(6.41979475.33103%Хж2)%Р 
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11] »0,Re(X« &)«Rx(Xsu)xX27u 
12] XF:R+(0.5-X)x2.0489+(0.14822401*0.29670819-( 
0.5-X)*2)+0.0014532591+0.2505217-(0.5-X)*2 
13] В«(7іхХ>0.99996832)%(%хХ(<3.168Е75)ғЕх(Х< 
0,99896832)-Х23.1688 5 
V 
VDENSITYUO]V 
VR+DENSITY X 
1] 21 PP X 
V 
ЎРЕОВУ 017 
У RePROBY X 
1] 2 PPX 
ç 
ЧЕХРЕСТІПІУ 
У R-EXPECT X 
(1] ВЗ PP X 


VINVDENSUOTV 
V ReINVDENS X 
(11 R< PP X 


VINVPROBLOIV 
У ReINVPROB X 
[11 А65 PP X 


INVEXPECTLOW 
У ReINVEXPECT X 
[1] 256 PP X 


Number 93 Assorted Functions 


James W. Rymarczyk , 

IBM, 

545 Technology Square, 

Cambridge, Massachusetts 02139. U.S.A. 


ҮЕТОТНЕАГ(119 

У R-ETOTHEA A;P;N 
[1] a THIS FUNCTION COMPUTES THE VALUE OF E RAISED TO A MATRIX 
[2] а POWER. SUCCESSIVE TERMS OF THE SERIES 
[31 ^ R=I+A+((A+.xA)+12)+... 
[8] a ARE SUMMED UNTIL SUFFICIENT ACCURACY (WITHIN EPSILON) 
[5] a IS ATTAINED. 
[6] R+A+No .=N+ı1toP+A 
[7] Wet 
[8] LiR+R+P+Pt.AsN«N+1 
[9] +LxEPSILON<+/+/|P 

ç 
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ETOTHEA I 
2.718281828 9 
2.718281828 


0 


ETOTUEA A 
0.7910907972 
70.5727816265 
71.005832915 


1.362088897 
1.93665405 
1.438884203 


VPOLYATLOIV 
ЕР POLYAT V;M;Q 


— 


0 
0 
2,718281828 


0.2863908132 
0.5029164575 
0,4279046777 
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V 


THIS FUNCTION EVALUATES A POLYNOMIAL AT A GIVEN VALUE. 
ARGUMENT P SPECIFIES THE POLYNOMIAL BY PROVIDING THE 
COEFFICIENTS ALN],ALN-1], ALO]: ІР THE ACI) ARE 


А 
а 
я COMPLEX, THEN Р IS А MATRIX OF SHAPE (2,N+1). 

в ARGUMENT У IS A REAL OR COMPLEX CONSTANT. 
+(1221tpV)x(ppV)+REALR,COMPLEXR 

'POLYAT INVOKED WITH AN IMPROPER RIGHT ARGJHENT:'3V 
+0 
REALR:+(ppP)xSCALARP,VECTORP,MATRIXP 


IMPROPERi'POLYAT INVOKED WITH AN IMPROPER LEFT ARGUMENT:';P 


+0 
SCALARP:+0xR¢P 

VECTORP :+0xReViP 
MATRIXP:+(241+pP)/IHPROPER 
*O0xR-(CV12[1; 2) ,V1PCU2;] 
COMPLEXR:>(ppP)+SCALARP,VECTOR „MATRIX 
-IMPROPER 

VECTOR:M+pP 

Re 00 

06 10 
LOOP1:R+R+Q CTIMES P[H],O 
Q+Q CTIMES V 
^LOOP1x0«M«M-1 
MATRIX:M+(pP)L[2] 

Re 00 

Q< 10 

LOOP2:R+R+Q CTIMES P[;H] 
2-4 CTIMES V 
*LOOP2x0«H«-M-1 
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3 72 5 POLYAT 0 
5 
3 72 5 POLYAT 1 
6 
3 72 5 POLYAT 1 1 
з ц 


3 72 5 POLYAT 2 0 
13 0 

3 72 5 POLYAT 20 0 
POLYAT INVOKED WITH AN IMPROPER RIGHT ARGUHENT:2 0 0 


COMPLEXPOLY 


COMPLEXPOLY POLYAT 0 


10 
_ COMPLEXPOLY POLYAT 1 
4 1 
COHPLEXPOLY POLYAT 2 2 
5 16 
VOTIHESLOIV 


У RA CTIMES В 
(11 a THIS FUNCTION COMPUTES THE PRODUCT OF TWO COMPLEX NUMBERS. 
121 Re(-/AxB),+/AxOB 


У 
2 0 CTIMES 2 2 CTIMES 2 2 
0 16 
1 71 CTIMES 2 2 
чо 


VSORTLD]V 
У R-C SORT X: X 
[1] A THIS FUNCTION SORTS THE ROWS OP A GIVEN NxM MATRIX IN 
[2] a ASCENDING ORDER ACCORDING TO THE CHARACTER COLLATING 
[3] я SEQUENCE PROVIDED IN THE GLOBAL VARIABLE 'ALPHABET' 
[4] я ARGUMENTS: 


(51 a С - A VECTOR OF EVEN LENGTH CONTAINING PAIRS ОР 
[6] a STARTING AND ENDING COLUMNS, THIS ARGUMENT 
[7] а DEFINES THE FIELDS BY WHICH THE HATRIX WILL 
[8] я BE SORTED, THE LEFTMOST PAIR IS MOST 

[9] A SIGNIFICANT. 

(101 a Xx THE MATRIX ТО ВЕ SORTED. 


[11] 2: ReX«XLACT AZ LRTrALPHABET AX; 7 1+Y+11+C[LpC)-Y+-C[L"1+pC1];) 
[12] рххрС« 24C 
1) 
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вада 


TABLE 


MONDAY 


TUESDAY 
WEDNESDAY 


THURSDA 
FRIDAY 
SATURDA 
SUNDAY 


FRIDAY 
MONDAY 
SATURDA 
SUNDAY 


SATURDA 


THURSDA 
MONDAY 
FRIDAY 
SUNDAY 


FRIDAY 
MONDAY 
SUNDAY 
THURSDA 


SATURDA 


9 
VR 
[11 a 


a 
a 
A 
[5] ^ 
A 
R 


1 9 SORT TABLE 


THURSDAY 
TUESDAY 
WEDNESDAY 
2 2 5 6 SORT TABLE 


WEDNESDAY 


TUESDAY 


4 1 2 SORT TABLE 


WEDNESDAY 


TUESDAY 
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- 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


PACKLOIV 
+A PACK B;T 

THIS FUNCTION RETURNS AS ITS VALUE A COPY OF ARGUMENT B 
IN WHICH ALL MULTIPLE INSTANCES OF THE CHARACTER(S) 
PROVIDED AS ARGUHENT A HAVE BEEN COMPRESSED TO SINGLE 
INSTANCES, ALL LEADING INSTANCES ARE REMOVED. 

РОВ EXAMPLE, ' ' PACK ' А STRING WITH BLANKS ' 
BECOMES "A STRING WITH BLANKS ' 
«(Tv7140,T7-42B)/B 
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Number 94 Game of Life 


W. J. Jones, 
Syracuse University Computing Center 


а "САМЕ OF LIFE! (SEE ALGORITHM 70. OCT 71 D) 


"LIFE[O]V 

V LIFE A;R;T;I 
[1] 1% 
121 А+ 20 20 *(720-L0.5xpA)*4 
[3] R< 71 0 1 Ф 3 20 p120 
[4] LPs! ж"Г1%((71%711),0)%((1-(97еУ/4)11),0)%41 
[5] (1+1+1);16р'-';+/,А 
[6]  +(1eA+(3=T-A)v3=T++7+/[3] A[R;R))oLP 

v 


a FIELD IS A TORUS (WRAP-AROUND BORDER BOTH WAYS). 
A EXTENT 20x20 CELLS. ARGUMENT A (1-0 MATRIX) MAY BE 
a SMALLER, IS PLACED IN CENTER. QUITS WHEN POPULATION DIES. 


LIFE 339111010110 
+++ 
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* 

* 

* 
8---------------- 3 

+F 
8---------------- 2 


Number 95 Game of Life 


D.Bonyun, 

Department of Computer Science, 
Arcadia University. 

Wolfville. Nova Scotia. Canada 


VLIFELUC]S? 


V ACE LIFE GENZA,R,CHH 


111 ST:ı>ExA,M+(180=A+V/,MAT+-MATXO)/YPOPULATION EXTINCT! 


[2] E:B<oMAT<(0,(Bo1),0)V(0,(Ao1),0)VMAT[ 140-18-8Г11-((98)11)40- 
(Bev /HAT)11; 1+С+1А+(Н+2 +0МАТ)Г21-( (ФА) 11) + Ce CA v 2HAT)11] 


[3] >Ox1GEN<AGE+AGE+1,00T=-'"GENERATTON ';AGE;', +*'[1+(0,(Н[1]1р1),0)\ 


(0,(#[2]oe1),0)NMAT+1] 


C4) TST,He00MAT- (Hz 3) VMATA^2 zHe (16H47) (107) «(C168 ) -£UCT-16HAT) e (16H) 


C 168)«(7 10447 )кН «7 10МАТ 


Number 96 Assorted Functions 


Bruce A. Beebe 

U.C. Riverside 

831 Prescott Way, Apt. A 
Riverside, Calif. 92507 


TRUTH makes use of the extension of arrays to the left argument of encode 
This version has been found to be twice as fast as the algorithm given on page 
B. 4 of the APL User's Manual. 


OF produces an R by J*R matrix of permutations of t J. This can be used to 
construct matricies for checking answers resulting from possible combinations 
of arguments to a function. 


CPU returns incremental central processor time rounded to 0.01 second. 


CMATRIX allows matrix building requiring minimal user effort. Numeric 
matricies can be formed similarly by replacing the[T] with an open quad. 
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жин 
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ALLCPU returns 121 in 100’ths of seconds while reseting the global cpu 
time variable. 


TABLE produces a square character table for use in demonstrating such things 

as multiplication tables. Every third member of the expanded left argument 

is assigned tbe underline character. Every element to the left of an underline 

is assigned the backspace character implemented in the University of Californis, 
Riverside system. The right argument of TABLE is made a square matrix. 
expanded, and catenated to the vertical bar and the left argument of the function. 


A backspace is constructed from В overstrike S, or from + overstrike + ала 
has hexidecimal representation 9E. The linefeed is constructed from + — over- 
strike _ and is hex 9F. The characters catenated to C in line [2] have dimension 
4 due to the backspace. An additional character that would prove useful would 
be one to return the typeball to the left margin without an increment of the 
platen. This may be mechanically feasible in some terminals and not in others. 


The EDIT program will edit the character vector RINP in a manner similar to the 
way the function editor can be used to edit lines of a function. Slashes remove 
characters from the string and digits or letters insert spaces. 


In the included demonstration, spaces were inserted, the vector was printed out. 
and the user moved the paper up one line to show the characters he entered. 


If. in response to the query: "WHERE?" the user enters апу non-positive number, 
the edit session is over and RINP can be checked. 


JORIGIN 0 


VTRUTE(C]V 
V TeTRUTP W 


[1] TeR(Np2)T|2«I 
[2] a SEE PAGE В.ц OF THE USER'S MANUAL 
7 
TRUTH 0 
TRUTH 1 
0 
1 
TRUTH 2 
оо 
° 1 
1 0 
1.4 
TRUTH 3 
0 0 0 
0 0 1 
0 1 0 
Qd. d 
1.0 0 
2120757 
f 4.0 
1 od od 
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Р->----Б--Б------------------------- 
vor (017 
У MeR OP J 
БҮЛ Me(BpJ)TiJ«P 
v 
0 ОРО 


1 OF 6 
0 1 2 3 ц 5 


% 2 OF 2 


enoo 
ноно 


"ABCD'E2 OF 4] 
AAAABBBRCCCCDDND 
ABCDABCDABCDABCD 

ҮСРИГП19 

v X<CPU 
[1] Х«0.01х11.,667х01(121)-121 
[2] T21<r21 


CPU 


03 OF 4 


CPU 


p4 OF 3 


CPU 


)ORIGIN 1 
WAS 0 


TRUTH 2 


orro 
omon 
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УСМАТРІХІП2У 
V M+CMATRIX;C;CH3L 
[1] Me(1,0CH)pCH+,M 
[21 -(OsLepCHe,m)/0 
131 +2 урИ«(((1Х0Му),С)4И),111(04«ЛГ 14о/ЭАСН 
рС+СЧАТРІХ 
BLANK WILL ВЕ TYPED: 


EFFORTLESS MATRIX BUILDING 
USE 'D' FOR NUMERIC INPUT 


5 26 
с 
А 
BLANK WILL ВЕ TYPED: 


EFFORTLESS MATRIX RUILDING 
USE Ч! FOR NUMERIC INPUT 


VALLCPULD]v 
7 Z-ALLCPU 
(12 Z<rPU+I21<0 


т 
ALLCPU 
4,88 
(121):60 
4.95 
ҮТАВЬЕГО19 


Ч А TABLE 2,0: 
111 ССр-1]«',0рСГ2+(рр 0 0 1)/i1pC+((D+ExpA)p 0 C б 1 0 03314! 


[2] 7,0 
Із] А, "|", ((2х0)р 0 1)\(D,D+pA)pB 
У 
gr et tet 
B 
IO, ter tut 
ü 


VMTABLE(D]V 

MTABLE 

[1] '+-0/' TABLE '+-0/-+0/0000//0/' 

Р [2]  CR,'SIGN MULTIPLICATION TABLE! 
70 


а 
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MTABLE 
-4-3-520-2 
+| + - O / 
-!-%0/ 
010000 
7177097 
VEDITLUIV 


У EDIT;A;C;E;I;J;iKiL, Ni S 
[1] ‘ENTER LENGTH OF EDIT DESIRED?’ 
[2]  L«(oRINP)lü[iz6r 01 


[3] W#*123456789',O0pA*'ABCDEFGHISKLMMOPQRSTUVUXYZ" 


[u] Q:»(O2I-ll-1)p0,0pLe WHERE?" 


[51 CH (Set / tebe Ls) /UeL*(I-IbD S+pkIWP)+RINP 


[6] э(^/Еє' /')pIN 


(71 ЈерЕ« 1+ (025) / 105+, (101018) +5х27|А1Е+5/Е 


[8] 5Р:0«(КрС),(8114К1р" '),(K<PË[J])+C 
[3] *+(0<J<*7-1)p SP 

[10] IN:-Q,oRINP-CIORINP),U, (Le2 ) &RIBP ,0pt-C 
[11] a FEB. 1972 UC RIVERSIDE BRUCE B 
[12] я EDITS CHARACTER VECTOR <RINP> IN ЦАЙ 


[13] а SIMILAR 10 THAT OF THE FUsCTIOW EDITOR 


1141 а жж USER MUST SUPPLY BACKSPACIHG жж 


У 
RINP 
TIS EXTeKEDS EDDTING 
pRINP 
20 
EDIT 
ENTER LENGTH OF EDIT DESIRED 
и: 
33 
WHERE? 
Ns 
RINP\'I' 


IS EXToWEDS EDDTING 
1 A /1 1/3 / 1 


IS EXT БЕ D Ёр TING 
H T E ED I ARD GOT IT 
WHERE? 
U: 
0 
RIWP 
THIS TEXT NEEDED  EDITISG AND GOT IT 


A A ZERO IS ГНЕ EXIT SIGSAL 


а PLATEN WAS FED UP ONE LINE TO SHOW WHICH CHARACTERS 


а WERE ENTERED BY THe USER 


| 


ЕВ 
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Number 97 Greatest Common Divisor Pairwise on Vectors 


William B. Rubin 

Department of Computer and Electrical Engineering. 
111 Link Hall, 

Syracuse University, 

Syracuse, New York 13210 


The following function computes the greatest common divisor of pairs of integers. 
given as corresponding elements of two vector arguments. 


7 G-N GCDP D;I;V 
(12 I+1pG+D 
[2] +5 
[3] N+GLI+V/I] 
[uJ CG[I)<D<U/D 
151 -3x1eVe02DeD|F 


The function is a generalization of the library 1 ADVANCEDEX function GCD. 
which employs Euclid's algorithm on two scalar arguments. 


The arguments N and D of GCDP must be integer vectors of the same length 
(empty vectors are allowed), with the elements of D nonzero. The result G is 

then an integer vector of the same length as cach argument, and satisfying 
0111-8111 GCD DUI] for Іе1рР. The result СГ] will be positive if 
0111 is. Example: 


зо 0 72 ^8 B GCDP 10 10 3 “ч “4 “y 
2 10 3 27474 


Since GCDP implements Euclid’s algorithm “іп parallel” for all pairs of integers, 
it is considerably faster than invoking GCD separately for every pair of scalar 
arguments. 


A direct application of GCDP is in reducing an array of fractions to lowest terms. 
Another use for GCDP is in computing the least common multiple of a vector of 
integers (see following algorithm). 


Number 98 Least Common Multiple 
William B. Rubin 


The function LCM given below computes the least common multiple of a vector 
of nonzero integers. 


7 L+LCM А:І 

(11 LeA,(-L-I+2ef 200.91 L-p4)01 
[2J + 

[3]  LeAxLt(LeI4L) GCDP A+ItL 
141 +(151+1+2)+3 


72 £ 
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The result 15 а one-element vector which is positive whenever every element of 
the argument is positive. 


The essence of the algorithm is as follows: Separate the integers into two equal 
groups, and find the least common multiples L of corresponding pairs of 
integers using the function GCDP of the preceding algorithm (see line [3] 
above). Then separate L into two equal groups and repeat, until only one 
element is left as the answer. To make this iteration work smoothly, 17х 

are catenated to the input vector so that the argument length becomes a 

power of 2 (line [1]). Note that the number of times GCDP is invoked 
increases as the logarithm (base 2) of the size of the problem. Examples 


LCM 1 2 35 56 8 9 10 


360 

LCM ,6u 
6u 

LCM 10 
1 


With minor modifications to LCM it is possible to compute efficiently the 
least common multiples along a coordinate in arrays. The modified function 
LCMA is given below: 


V L+LCMA A;D;I;N 
[1] I*pLe,A,L11J((-L-2«[260.9f Le1*p4) ,0«1404)01 
[2] N+*0,9fx/D 
[3] 45 
[uJ LeAxLe(LeI+L) GCDP A<I+*L 
[5] -(NSI-It2)58 
(61 2+ррр 


The argument A is any array of nonzero integers (empty arrays are allowed). 
The result L is an array of dimension 1404 whose elements are the least 
common multiples along the first coordinate of A. If 021454 . then every 
element of the result is unity. 


Note that the explicit loop in LCMA is virtually the same as that in ЕСМ. 
Furthermore, the number of passes through this loop depends upon only 
the length of the first coordinate of A. Thus. for array arguments LCMA 
is considerably faster than iterative application of LCM would be, since 
LCMA handles all rows “in parallel”. 


For vector arguments LCMA produces a scalar result, while that for LCM is 
a one-element vector. 


The functions ССР, LCM, and І СМА are all origin independent. 


Number 99 Addition and Multiplication of Potynomials in n Variables 
William B. Rubin 


A polynomial in n variables 21 „Ж 


z isamathematical function 
of the form n 


ze 


: 
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pu E ( Tr 
А 2 
55% 1101 3 
1150 12-0 140 71 2''7m j=l 


In particular, n=1 gives "ordinary" polynomials in one variable. A polynomial 
in n variables is naturally represented by an array of rank n ot its coefficients 


A 
1122.13 


The following function can be used to add two such polynomials: 


V С+А PLUS B 
(12 C+(CrA)+(C+-(pA)FoB)+t3 
y 


The coefficients are assumed given in descending powers of the variables Z 
(If the coefficients are given in ascending powers of the variables, which 
seems the more natural way, especially in O-origin. then the minus sign in 
line (1] should be removed.) PLUS is origin independent 


In algorithm 65 a function PADD is presented for adding two polynomials in 
one variable. The function PLUS. applied to polynomials in one variable, is 
believed superior to PADD in execution time and storage space, not to mention 
elegance. 


For polynomial multiplication any correct algorithm works for coefficients in 
either ascending or descending order. The following algorithm for multiplication 
of two polynomials in n variables is fast and fairly elegant: 


V С«А TIMES В;р 
[1] C#( (AOL B-1-pA), 3402) жде, xB 
[2] D+1+1pB 
[3] Ce«/ CCCCD20B) /А) „В)р-1 11t8)0[ 1498] [^ 
[u] э3ххрВ« 1+8 

v 
Unfortunately, it is practical only for small and moderate-sized problems because: 
1) In APL/360 the "take" function (line [1] above) is not usable for arrays of 
rank exceeding 9; hence TIMES is limited to polynomials in four or fewer variables. 
2) The intermediate results of line [1] have a marked tendency to exceed 
reasonable workspace size for arguments of moderate dimension. 


The following version of the TIMES function eliminates the first problem and 
gives a slight improvement with respect to the second. but with some loss of 
speed and a noticable loss of elegance. 


Я C«A TIMESA B 
[17 С<%/((С,В)р-171%8)9ГАерС1(4,((С4714р4),71%71%ВерВ)р0)ө,ха? 


121 +3xxA 
(31 Ces/CCCAz1p3) /B)p-i7 1*48)6€ C-A1((B[ 4102) ,( 27 1+9+рС)ро) \ГА+А 
- С 
141 -3xxA 
? 
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Both TIMES and TIMESA require 0-origin. 


Number 100 Assorted York APL Functions 


Morgan Smyth, 

APL Coordinator 

Ryerson Polytechnical Institute 
50 Gould Street, 

Toronto, Ontario, Canada. 


1. EXPLICIT RESULT UNQUOTE OPERATOR 


The York APL unquote, б. іза monadic. no explicit result function. This 

is fine for executing system commands or moditying functions. But sometimes 
the results of an unquote operation are required in further computations, To get 
around this problem. the user has merely to create an unquote sub-function 

as below: 


JENS UNQUOTE 
V R+UNQUOTE X 
[1] etret,x 
y 


6xUNQUOTE '16' 
6 12 18 2% зо 36 


2. FORMATTING FUNCTION 


Most APL public libraries contain the function DFT which half rounds and 
formats numerical arrays. Well, the function FMT below, written by Gerry 
Wheeler, a Ryerson student, takes a numerical array of any dimension as its 
right argument, the output specificaitons из its left argument. and produces 
results in the same way as DFT. but in about one tenth of the time. The 
function uses the dollar sign operator to decrease the CPU time required. 


)FNS FMT 

У RA PMT В;С;М;Т 

[1] »((1504),1 0s2lpA*LA) /SEUGL,R2,PRS 

[2] SNGL:A-(Atu*f /,11001840-8),Л 

(31 PRZ:4-((71103),2)04,2(( 2404) ^((04):2) 271102) /5 82 
[uJ *(v/0»-/A)/ER1,C*1,0pMepB M 

[5] Re((1tpB),0)p' ',OpBe((x/7144), 150)08 

(61 BE1:R-R, ((-АСС;17) (1300 9 ),' 0. ' ,4LC;270' 9! ) $((1508),1) 
pTx(.OS*L.S* (BL; C]xT«-xBL 5C]1)x10*4[C;21)x10«-4[C;21 
[7] >((71%8)гС40%1)/81 

[8] +0,0pR+(("144), 1*0R)oR 

(91 ER1:+0R+0pD+'FM? DOMAIN PROBLEM"' 

[10] ЕВ2:+рА+0р[+'РЫТ LENGTH PROBLEM? 

v 


Employing the dollar sign operator to display numerical arrays is quite 
definitely faster than any user defined functions because it is even faster 
than simply displaying arrays. For example '999'$z takes less CPU 


A 
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time than if just typing M (where M is an array). This is possible because 
the APL interpreter doesn’t have to consult such parameters as )DIGITS 
or )WIDTH as these items are already specified in the left argument. 


7 2_FMT 6.754 70,016 10 
6.75 70.02 10.00 


А+5 1 FMT 2 2 2р18 


A 
1.0 2.0 
3.0 4.0 
5.0 6.0 
7.0 8.0 
pA 
2 2 10 
B+3 4p112 
С+121 
5 1 DFT B 
1.0 2.0 3.0 4.0 
5.0 6.0 7,0 8.0 
9.0 10.0 11.0 12.0 
(x21)-C 
215 
р+121 
5 1 FM? В 
1.0 2.0 3.0 4.0 
5.0 6.0 7.0 8.0 
9,0 10.0 11.0 12.0 
(x21)-D 
24 


Or, if there is only one value in the left argument. ıt is used to represent 
the decimal point accuracy that the function is to achieve with the right 
argument. The spacing between each value or column is automatically 
computed by FMT. 


2 FMT 2 3р1.695 77 0 1000 .1 2 
1.69 7.00 0.00 
1000,00 0.10 2.00 
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3. SORTING VARIABLE LENGTH INPUT 


ASORTI accepts character input of varying lengths and creutes a temporary 
matrix with co-ordinates equalling the number of input stirngs and the 
longest input string. This matrix is then sorted, cohimn by column, to 
produce a matrix in ascending order. 


)FNS ASORTi 

V R+ASORT1;I;L;V 

11) I-24L*oV-0pD-'EUTER DATA." 

(21 »COz7 14L-L, (руу, П) -*/L)/2 

[3] R*«CCCoZ)- 1), T/Le 3145)p' ' 

(51 2((01)21ТТжроЁ (1-1)53(4/105)-4/(1-1)0114(4/(1-1)0134(- 
/IoL)*V)/u 

151 Z+itoR 

[6] »6x10<Z+L-opoR+RL(AAT ;1]);1 

ç 


NAMES*ASOPT 1 
ENTER DATA, 
SAM 
TERRY 
BILL 
SANDY 
BOB 
+ press "RETURN" key only 


NAMES 
BILL 
BOB 
SAM 
SANDY 
TERRY 


pNAHES 
5 5 


Number 10! CLOCK FACE 


Dick Conklin (Address see Alg. 89) 
Correction to Algorithm no. 87 


VCLOCKLOTV 


V CLOCK;T 
[1] ТеТ%12х0-7е 12 12 18000 т120 
[2] Ре 9 15 р! 
[3]  F[5;8]e'e' 
[u]  F[1 9 ;8]-F[5; 1 151«'0' 
[5] — FL[2;5 1-7L 3; 3 ]-FU 7;13]-F [8511]! V! 
(61  FL8;5]-FL 7;3]-F[ 3;13]-7(2;11]' /" 
[7] РГ((2%16),8-16 171112; 10 12 13 12 10 8 6 4 3 4 6 8(7(1211-Ч8! 


77 


448/ APL QUOTE-QUAD 


[8J 23578987532 1171211; 11 13 15 13 11 85 313 5 8 


[T[2)]]<'M' 


TIME 
03:07:59 PM EASTERN 


Number 102 Diophantine Fquation 
Raymond O. Folse 

Assistant Prof, ol Computer Science 
Nicholls State University 

Thibodaux, Louisiana 70301 U.S.A. 


The following algorithm determines all integers X and Y which satisfy the 
Diophantine equation (АГ11хХ)%(АГ21хҮ)-АГ31 where 

АС11, 4421 and 4[3] positive integers, The values of X. Y 
аге expressed as functions of T. where T is an integer. The algorithm calls 
the definition EGCD which computes the greatest common divisor Z[1J of A. 
Band integers 202] ,203] such that Z[1]=(AxZ[2])+(BxZ[3]). 


VEGCD[D]Y 

У 2+А EGCD B 
(11 MA, 6 
[2] N+B,0 1 
[3] —+(#(11=0)/б0 
[5] NSAVE+N 


[5] NeM-NxL (401144011) 
[6] M+NSAVE 


[7] +3 
t8] 60:2+М 
v 
[9] v 
78 
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gpro[ujv 
v 210 А 

[1]  -*((04)23)/BAD 

[2]  K«AL1]EGCD АГ21 

(31 *(0zR-K[L11|lA4E3]) /BAD 

(41 ХЄ(КГ2154),(Х131х0«1А(31:К(11) 


151 ! THE EQUATION ",А(11,"Х4",4(21:"Ү5",4131:! HAS SOLUTION:' 
(61 р ЖХв';Х[1];'+';А[2]+К[1];'Т' 
171 ' Үбі Х121:"-1Ү:4(114К111:11! 


(81 +0 
[9] В840:4117:!Х41",4121:"Ү-1,4(31:! HAS NO SOLUTION? 


Я 
(101 9 


DIO 7 3 100 
THE EQUATION 7X+3Y=100 HAS SOLUTION: 


Х=100+37 
ү=7200-77 
010 2 3 5 
THE EQUATION 2X+3Y=5 HAS SOLUTION: 
Х=75+37 
Үз5-27 
DIO 4 6 7 


4X+6Y=7 HAS NO SOLUTION 


DIO 18 15 12 
THE EQUATION 18X+15Y=12 HAS SOLUTION: 
X=4+57 
Y="4-67 


Number 103 Assorted Functions 


A. Arger 
Wellesley College 
Wellesley, Mass. 02181. U.S.A. 


V ANOVA; LEV ;NMS ;T 

[1] +t! 

[2] Ot ANALYSIS OF VARIANCE" 

[3] n BY A. ANGER, WELLESLEY COLLEGE, MAR 72 
[8] — NMS-INSUMS 

[5] ся 1*oNMS 

[6]  T-ANOVU NMS 


(71 De! 
[8]  D«'PACTORS, SUM 505, DEGS FRDM, MEAN SQ, F-RATIO:' 
131 Det 


А Ек 


450/ APL QUOTE-QUAD 


- 


80 


Пет БЭР, 
(2x1*pLEV)p'TOT. Чада 3 728(0131211 
Пе" 

Det! 


NMS+INSUMS;LEV;NC;C;NH 

R COLLECTS ARRAY OF COUNTS, SUMS, AND SQUARES 

a BY A. ANGER, WELLESLEY COLLEGE, MAR 72 

Пе" 1 

O+'PLEASE LIST NUMBER OF LEVELS FOR BACH OF THE FACTORS' 
LEV+,0 

пе" 

NC+x/LEV 

NMS*(NC,3)p0 

O+'PLEASE ENTER LIST OF VALUES FOR EACH CELL WHEN ASKED. ' 
O+'YOU MAY MAKE CORRECTIONS WHILE TYPING EACH LINE,' 

O+' OR AFTER ALL CELLS ARE ENTERED.' 

бе" 

сю 

ASK1: 

‘CELL ';1+LEVTC 

NMSL1+C; ]++/[11(,0)°.*x0 1 2 

>А5К1 IF NC>C<C+1 

э0К1 IF O<L/WMS[;1] 

Oe! ' 

‘THERE ARE ';+/0=9М51;1];' EMPTY CELLS!' 

0К1: 

>0K2 IF 14|/НМ81:11 

Oe ! 

+/1=NMS[;1];' CELLS HAVE ONLY ONE OBSERVATION;' 

L-' METHOD MAY NOT YIELD RELIABLE RESULTS.' 

OK2: 

бен 

Ое'то CHANGE THE VALUES IN A CELL, ТҮРЕ ITS NUMBER, E.G.:' 
ў 'S?LEV 

Ue'YOU WILL THEN BE ALLOWED ТО TYPE A REPLACEMENT LIST.' 
De'WHEN NO CHANGES REMAIN, TYPE: 0! 

ASK2: 

(+'CELL?" 

ЭОК IF 0=+/C+,0 

D+ "VALUES?! 

NMS(1+LEViC-1;]++/(11(,0)°.*0 1 2 

>45К2 

OK: 

NH++/=NMSL;1] 

Пе" ' 

*/NMSU;1];' OBSERVATIONS IN ';NC;' CELLS; (HARMONIC) MEAN CELL SIZE 


SNCSNH 


У 


NMS+(LEV , 3) pNMS 
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Я Рр IF C 
(11 к/р 
У 


У T+ANOVU NMS;NF3NC3M3SS;C;NH3H; LEV У УС; DP; LM;MS;P;VP 


(11 я ANALYSIS OF VARIANCE--UNEQUAL COUNTS 

[2] a ARGUMENT IS ARRAY ОР CELL COUNTS, SUMS, AND SQUARE SUMS, 
[3] R DISTINGUISHED BY LAST COORDINATE; OTHER CO-ORDINATES 

[4] в ARE THOSE OF THE FACTORS UNDER CONSIDERATION. 

[5] я RESULT IS ARRAY WHOSE COLUMNS REPRESENT THE FACTOR NUMBERS, 
[6] я SUMS OF SQUARES, DEGREES OF FREEDOM, MEAN SQUARES, AND 

[7] в F-RATIOS. FIRST ROW REPRESENTS INTERNAL/ERROR VARIATION. 
[8] UNWEIGHTED-MEANS METHOD FROM ROGER F. KIRK, ‘EXPERIMENTAL 
[9] я DESIGN', WADSWORTH PUBLISHING 1968, РР 200-08. 


[10] а BY A. ANGER, WELLESLEY COLLEGE, MAR 72 
[11] LEV<pNMS 

[12] +0 IP Зе 1*LEV 

[13] LEV+"1rLEV 

[14] NFepLEV 

[15] NCex/LEV 

[16] ММ5<(МС,3)рММ5 

[17] NHe*t/*NMSU;1] 

[18] MeLEVp:/NMS[;2 1] 

[19] NF2«2*NF 

[20] Я+ИР2ро 

[21] 04Ф1218(НРр2)т71441Е2 

[22] V«VLÀ*/L21/;1 

[23] УР«/х(рУ)ріМР 

1241 C+1 

[25] ІРІ: 

[26] VCWUC;l 

(271 ILi<x/VC/LEV 

[28] L2<x/(-VC)/LEV 

[29] РУС 

[30] LM*-(L1,L2)0(PiiWF) QM 

[31] ALCI+Lix+/(+/L212M)*2 

[32] HLNF2*1-C]-L2x*/ (*/ L11LM) *2 

[33] УРСС; )+УРГС;Р) 

L34] VPLNF2*1-C; J-VPLNF2*1-C; (+/УС)ФР] 
[35] >LP1 ІР NF222xC«C*1 

[36] DFe(NCx(NC*NH)-1) ,14x/1+Vx (pV)pLEV-2 
[37] SSe*/NMSL ;3]- (ММГ ;2]*2) WMSC 31] 
[38] 55+55,1+(9+. (VA. SQV) x71 40+, <QV) NH 
[39] MS«SS*DF 

(401 T-(((/P,E2195) ,L2JDF) ,L21M8) ,L21MS:MSUL1]*MS[ 1170 


8t 


452/ APL QUOTE-QUAD 


а 


82 


111 
121 
[3] 
181 


111 
121 
(31 
C4] 
[51 
161 
171 
[8] 
[9] 


V R<S CONTOUR M;K;F 


ñ CONTOUR MAP OF ARRAY M WITHIN CHARACTER SIZE LIMITS S. 
а S INCLUDES ROW AND COLUMN SIZES AND OPTIONAL SPECIFICATION 
я OF THE NUMBER OF VALUE LEVELS TO BE DISTINGUISHED. THE 

n DEFAULT VALUE GIVES A TYPICAL BAND WIDTH OF 5 CHARACTERS. 
я BY A. ANGER, WELLESLEY COLLEGE, JUL 71 

a 

K+ 1+(1+poM)+S,0 0 0 

8«(оМХГ CopM)pLS 

F+LS:pM 

K+K+(K=0) x10 0. 2x[ /1+Рх(рМ)-1 

RK CONTOURS Р STRETCH М 


КР STRETCH M;N 

STRETCHES RANK-N ARRAY BY FACTOR FLI] (NEARLY) IN DIMENSION 
I, USING LINEAR INTERPOLATION TO FORM F-1 NEW COLUMNS (ROWS, 
LAYERS, ETC) BETWEEN SUCCESSIVE GIVEN VALUES. EITHER 
ORIGIN MAY BE USED. INTERMEDIATE STORAGE < 2.5 x RESULT. 
BY A. ANGER, WELLESLEY COLLEGE, JUL 71 


гэгээг 


в 

30L 10-N-ppReM 

F<@No1[ LF 

ТР: 

M-((lroR), 1)4R 
Ее(71ф15%1)8((8р0),71)%(2,р89р(,8),19%,Р 
В+8+.х(2,14Р)р(($(114Р) +511), (147) 11) 8147 
Re(19W)8( C 2*pR) ,x/ 2*9R)pR 

Re((14150R) ‚1+pR)p(,R), ,M 

+LP[ \0<рР+1+Р 


R«K CONTOURS М 


a GIVES SYMBOLIC CODING IN K+1 LEVELS FOR ARRAY M. 

a LOWEST AND HIGHEST LEVELS ARE HALF THE DEPTH OF 

R INTERMEDIATE LEVELS, TO AID IN LOCATING EXTREMA, 

а SUGGESTED SYMBOLS SETS (IN CONTOURSYSMS): 

я то 1:'-0';'01234567891;!0 246 8 ';'АВСРЕРСН! 
a BY A. ANGER, WELLESLEY COLLEGE, JUL 71 

R 

Kei Lipx 


Re( (K+1)pCONTOURSYMS) Г(71)%10.5%Кх(М-1/,М)%(Т/,М)-1/,М1 
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CONTOURSYHS 


12 24 5 CONTOUR ((112)*2)9.x(128)*2 


=-100000 
- -BOnnnaprn 


COPNTOUPRSYHS«-' APL' 
9 7 CONTQUP A 


27 21 3 CONTOUR A 


AAA 
AAPAA 

APLPA 

AAPPLPA 

AAPPLLPA 
APLLLLPA 
AAAPPPLLPA 
AAPPAAPPLPA 
APLPA APLPA 
AAAPPAA APLPA 
AAPPAAA АРІРЛ 
APLPA APLPA 
AAPPLPPAAAAPPLPA 
AAPPLLLPPPPPPLLPA 
APLLLLLLLLLLLLLPA 
APLLPPPPPPPPPLLPA 
APLPPAAAAAAAPPLPA 
APLPA APLPA 
APLPA APLPA 
APLPA APLPA 
APLPA APLPA 
AAPAA AAPAA 
ААА ААА 


454/ APL QUOTE-QUAD 


Number 104 Тіс Tac Toe 


Graham V. Dunne, 
10 Dryden Avenue, 
Hazelwood Park 
South Australia 


У71СТАС(01У 
7 ТЇСТАС 
(117 aC '¥'=CVeD, Ope WOULD ANYCNE LIKE A GAME C7 AOUCHTS AND CR 
0SSES?')(11)/GO 
(21  EL:92C'Y's(V«D.Opl7- (ANYONE ELSE THEN? Ук 1) /60 
(31 Ф0,080«"/ THINK YOU ARE SCARED OF РЕ. COME BLCK LATER WHEN 
NO-ONE 75 ҺАТСИ! Мб. ' 


[4] 60:2+25р' І І -+-+-' 
(61  2(B/(Be' 's2)x125]« 123556789" 
[61 N+B\19 


[7] $7-9p0;PRFV«O 

[8] RN1 0452869 

(92 7+2 01 3 "i 20 чо 720 720 

(1027  'THANKS. THE SPACES ARE NUNBERED LIKE THIS: 7;5 5р2 

(111 'YOU ARE O AND I AN X. THE FIRST 70 GET THREE IN LINE WINS 
' 


[12] WHEN 17 15 YOU: IUCh, КАТЕР TUE NUMPER OF THE SQUARE WHER 

E YOU WANT TO PUT YOUR о.” 

1131 602:57<9р0:РЕГУ<2;М«8%19;218/С8! '=7)x128]+ 123456789 ';Ze 
pif dest 

[14] "YOU MOVE FIRST: ' 

[15] AGAIN: 9 (~(Te19 )a~v/PREV=T- C LI N40) L3 1) /EPROR 

1161 PREV+PREV,I 

[171 Z£Mir3«'0' 

[181 STC(1J<4 

[19] »(A/O#ST,0pB+t)/END 

[20] SQ 3pST 

(211 AC+<(+/SQ),(+/SQ),(+/ZST[1+ux 14137) 4/0, DSO) (144% 73443] 

(221 +(v/3=RC ,0pB<2)/FAD 

(221 ReRTCRNARC) 

[243 5ГУ«(ё(216((8Ё(414-8(71),8191,68(6145(81))),(81214(5(41,(Е(7 

HACSI+RC8I) ,4[61)) (RUIJA CCAE 1:1 5[ 81) RUS], (Я 

(6145171))) 

1251 PREV-PREV + C(mKEPREV)IK- (STVsC/CST 0) / TV )x49)C11 

126) 210414716!Х",57(17168 

(271 пеген, 60 IW 1,7 

1281 4(v/8=RC,0¢R+3)/FND 

129) >AGA7W,Op[]* "YOUN MOVE’, Срі7е5 5р2 

(301 ERFOR:+AGAIN,Oplie 'HEY! YOU CANNOT GO THERE. TRY AGAIN: ' 

(811 £NWD:D*5 5р2 


[323 O+((9p8=1),(12p8=2),(10¢8=2))/' DeAW',? YOU VIN',' 
I WIN! 
(331 -((-А),А«"Ү?-(у4,0әбе WOULD YOU LIKE ANOTHER 6AME?')(12)/ 
E,, 302 
v 


84 
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Number 105 Airport Simulation 


Graham V. Dunne, 
10 Dryden Avenue. 
Hazelwood Park 
South Australia 


This function computes by simulation the average wait experienced bv 
each of two aircraft types (eg. "large" and "small") arriving at a 2-runway 
airport. Each aircraft type has a given distribution of service time (ie. time 
to align with the assigned runway. to land and to taxi off the runway, during 
which time other aircraft are prevented from using the runway in the same 
fashion. The ratio of the numbers of the two types used in any simulation 
may be varied. but the distributions of inter-arrival time have been made 
identical for simplicity. Each aircraft type may also be restricted to either 
or both runways to simulate the effect of, for example, inadequate 
runway length. 


If an arriving aircraft may use either runway and one is occupied, it is 
assigned to the other, but if neither is occupied it takes a preferred runway: 
if it may use either runway and both are occupied. it signed to the fi 
one which comes free: if it may use only one. and this is occupied, it waits 
jn a first-come-first-served quene until that runway is free. 


The cumulative waiting time of aircraft which joined the quenes for the two 
runways is kept over a specified number of arrivals, and the average waiting 
time for each aircraft type is finally calculated. 


95:90 (029 
7 SIMUL 
[11 84 
(21 cAsE«ü 
[3] Toren 


(43 CUMAC«O,N,1200 

(51 ACTYP+ 2 

[6] M+2 2р1 0 0 1 

(71  STeACeiSUMAC*CT* ,0; SUMWT*O 0;6*1;J*2 
(81  QSeQ«2 1p0;ALLOW*,0 

(481  2:€T«CT ,CTU G4 IATIMU + / (2106) €CUMIA 
[10] AC+AC,ACTYP[+/(?100)<CUMAC] 

111) 5Т«-5Т,5ТМ(4/(2100)5СОМ5ТГАС(62:31 
(121 SUMAC-SUMAC*MLACI G1; 1 

[131 -(TOT264652)/Z 

(141 4АС%0,АС;57<0,5Т 

[15] AGAIN :RWDUM*2p0 

(26) QS<((C7[J)<+/QS),1)/(((pQ$)[2)e1),o)XQS 
[17] Q+*(((SIZ<(e0Q)[21)p1),0)NQ 

(181 Q[12;S7Z+11*+/QS>0 

(19) ALLOWev/2 ?рРОЅ5[САЅЕ; ]=АСГЈ) 

[203 »(3»AW«(ALLOW^^/Q520)112) /ADD 

[21] *(2:*/4LLOW)/PROC 

[22] ADD, pRW*ALLOW14 

1231 PROC:RWe((V/ MAX у-МАХ-Г /Q5) x1 


ШІ, №. 5 /455 


(241 ADD: SUMWPLACLTII+SUMWPLACLIIIHWATT-OTLT/QSCRWEI)-CTLJI 


456/ АРІ. QUOTE-QUAD 


1251 ARWDUMLRW]« 1 


(261 @SL12;(pPQS)L2II-RWDUM«STLII+CTLII+WAIT 

(271 —+(TOT>2J<7+1)/AGAIN 

(281 707;' AIRCRAFT, ';W;' PERCENT TYPE 1,CASE ';CASE 
[29] "АУ WAIT TYPE 1 -";5ИМУТГ11%50МАС611 

(301 “АУ WAIT TYPE 2 -',SUMVTU 2]* 5UMACE 21 


ни 


v 
CUMIA 
0 9 27 5 73 98 100 
CUMST 
0 0 0 0 22 63 91 100 
0 0 16 43 82 100 100 160 
ійтім 
1 3 5 7 8 t" 
STM 
£ o3 05. ж. 9 21 33 15 
POSS 
1 2 о 2 
1 0 9 2 
ı 2 1 2. 


Number 106 Smoothing Function 
R.A. Semmler 

IIT Research Institute 

10 West 35th Street 

Chicago, Illinois 60616, U.S.A. 


SMOOTH smooths or ditherentiates data using a piecewise least squares 
polynomial. The degree of the polynomial and the number of points fitted 
is arbitrary. 


Ф5ноотн [017 


* GHOOTH ALL ANSI ICBEB I CY Са, DEN DERIV E P FIRST BIROV; I INDEX | LAST) LOROW | M NATNORN Mi WO БОЛН 
PyPT ROWS; Vi 1, YES 

{11 я THIS PROGRAM SKOOTHS OR DIFFERENTIATES PHA DATA BY FITTING A LEAST SQUARES 

С2] а POLYNOMIAL TO SUCCESSIVE SMALL REGIONS. ONLY THE MIDPOINT IS EVALUATED FOR BACH PIT. 

[3] ж REQUIRES INPUT, CSTN, CSTV, Y, AND DET, 

[s] START: INPUT 

(51 ^ ДИЕВ ДАГА CONSTANTS 

(5) LABEL: INPUT HUKBER OF POINTS PITTED AT ONE TIME (PICK 000 NUMBER вэ)! 

tu 

(31 

tov 

[10 


P+O 
*INPUT DEGREE OP POLYNOMIAL ('\(\(Р-1))1')' 
рч 


0 
у “ЕНТЕН DEGREE ОР DERIVATIVE DESIRED (%)(71%:(041)3)!). ОТЕ DERIVATIVE GIVES SMOOTAING.* 
(41) DERIV«D 
[12] m LQUPUTE_KEIGEIS_Z 
CHEBS( (Dei), (De1))00 
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(1%) СЕЕВГ1,141,220 
(151 СЕЕВІ241е5,(-2%(Р-1)),(2-1)0 
(16) ясі 
[17] LOOP:i*(D«H-N*1)/LABELi 
Сав] Cie(2-uxR)*DEN-NxP-N 
[19] C2«(i-F)«(PeN-1)5DEN 
(20) CEEBLN*1;]e(Ciw i0CEEBUE| ]) eCO« CHEBLR 11] 
£21] +100Р ü 
[22] LABEL: 1 +а( (Р) (Ре) +2) е. (3+1 (0+1)) 
(23) FeCHEBs. Wi 
(24) NORH++/P +2 
125) HMATNORM-NORM* .xPp 1 
{263 PT-FAMATNORM 
(27) E«€(G(w1)0)* (28100 (DERIVe1) 
[28] We Webs, MALLOC! ("den (081) ) 6. Рол) (АСЯБВ) e «PT. 
[29) ^ COMPUTE WEIGHTED .AVEGAGE 
[30) «Іо 
(932 LOOP2:+( (pw) ІІ +1 )/LABEL2 
[32) V«VeWLIxY((I-1)61(0Y)01-0K] 
(932 —100Р2 
(341 ALQUEI_BQHS. LABEL. „АЁО FORMAT INE .QUIPUT " 
(37 TABEDZIRONSE( t10) CAO (81808410 (LASTHLAZEs (o Y) e 1-7(P-1)12) #10) -CLOROWe1 ох (PIRSTOINITS( Pod) 
29410 
(36) IRNDEX-LOROW« i0«10xiROWS 
(37) M«(0,1001)NCROWS, 10) p ((FIRST-LOROW)p O) У, CBIROR e 9 -LAST)o 0 
(98) HML;1)eINDEX 
(391 8105! 
(40) Р," POINTS; DEGREE ';D;' POLYNONIAL, 'ADERIVi' ORDER DERIVATIVE," 
{%1] (š 0 32 1 ,180 10 1) DF? N 
(42) 1;'' 
(43) LABEL7i' TRY DIPPERENT PIT? (ENTER Y OR 8)! 
(847 405-0 
(451 —+((YESwWO),(YES+A/ANS='Y!),(NO+A/ARSs'N'))/LABEL7 LABELS LABELS 
(46) LABELS: ‘NEW SPECTRUM? (ENTER І ОВ М)! 
(97) ANS+5 
(48) -*((YZSeNO),CYEScA/ABS uw! Y' ), (МОА АЛБ! )) /LABELB, START, LABELIO 
(931 LABEL10:40, 90e ' END! 
v 


SMOOTH 
ENTER INITIAL INDEX (CHANNEL) NUMBER 
m 


1 
ENTER DATA (PUT OBLY 0 ON A LIRE IN ORDER TO STOP) (ТУРЕ 'SAME' TO REUSE LAST Y VALUE) 
п" 


SAME 
P 


° 
PRINT RAW DATA? (ENTER І OR Н) 
Y 


0.0 0.0 0.1 0.0 0.3 0.3 0.5 11.2 23.1 85.2 
10 88.0 56.2 56.9 2s.2 13.5 10.0 ч.5 71.5 0.1 70.3 
20 70.0 2.0 0.0 0.0 0.0 0.0. 0.0 0.0 0.0 0.0 
ДИТ CORRECTIONS? (ENTER І OR P) 
М 
INPUT RUMBER OP POINTS PITTFD'AT ONE TIME (PICK QDD HUMBFR аз) 
п: 
5 
INPUT DEGREE OP POLYNOMIAL (su) 
D: 
2 
ENTER DEGREZ OF DERIVATIVE DESIRED (0 1 2), 078 DERIVATIVE GIVES SMOOTHING. 
Pi 


0 
RAW DATA IS STORED AS GLOBAL VARIABLES Y AND X. 
COMPUTED DATA IS STORED AS GLOBAL VARIABLES ҮҮ AND XX. 
PRINT COMPUTED DATA? (Y OR h) 
Ж 


87 


458/ APL QUOTE-QUAD 


Р FIT, DEGREE 2 POLYNOMIAL| 0 ORDER DERIVATIVE.  _ 
Ë ve M 0.0" 0.0 0.0 9.1 0.2 0.6 2:2 HH 
10 51.2 57.2 50.3 36,7 13.5 9.0 a. } 


FRY DIFFERENT PIT? (ENTER Y OR M) 
14 

ЖЕУ SPECTRUM? (ENTER Y OR E) 

“ 

END 


Number 107 Conversion 


W.G. Thistle 
Defence Research Establishment Valcartier 
Valcartier, Quebec 
To convert positive integer vectors to corresponding character arrays with leading 
zeros suppressed. 
The function is used dyadically: 
к = V LZN 
were V is a positive integer scalar or vector and N is the integer number of digits 


wanted in the conversion. R is a character array of dimension. oV by N. (R isan № 
element vector if V is a scalar). 


In the interest of speed. LZ does no argument checking. Values in V which cannot be 
represented in N decimal digits will be truncated in the result. negative values will be 
converted incorrectly. and non-integral values will cause a DOMAIN ERROR within 
LZ. Values of N less than О or greater than 75 (or any non-integral values) will also 
result in a DOMAIN ERROR. 


VA+D LZ N 


(11 А“! 0123456789'E(Q(Np10)TD)+1+D0.2610*% 1414) 


v 


A 
12 8765 1098 1000 10 100 99 111111 


А LZ 5 


л 


June 9, 1972 - Vol. 111, Мо. 5 /459 


89 


Р0+А LZ з 


Number 108 Sumscan 


K.W. Morgan 
Defence Research Establishment 
Valcartier, Quebec 


To calculate the sum-scan of arrays of any rank. 
The function is used dyadically: 
2 < ASUCX 
where X is the array to be sum-scanned along the Ath coordinate. 


9$ ИСГОЗУ 
72+А SUC X 

[11 2-(((-А-ррХ)фіррХ)8Х)%,х29,52-1(оХ)ГА) 
9 


М 


1 3 6 10 


2 SUC M 
3 6 15 
13 30 51 


ioe ойі 
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18 32 Sh 

3 10 21 

15 34 57 

в 12 24 

16 36 60 
1 SUC M 

1 14 

2 16 

з 18 

ц 20 

5 22 

6 2% 

7 26 

8 28 

9 30 

10 32 

11 34 

12 36 


Number 109 Formatting for 1130 


Daniel Esbensen 
Dututh East High School 
Duluth, Minn. $5812 


The program "FORMAT" is used to format numbers, The program formats the 
elements of its argument into fields of 12, The argument can be a scalar. vector. or 
matrix. The one restriction on the argument is that it must contain at least one 
non-zero element. The result of the program is a numeric matrix. Example: 


4456 43 7568 .02 


A 
56 43 7568 0.02 
FORMAT A 
56 43 7568 0.02 
B+2 3p16 
8 
1 2 3 
н 5 
FORMAT B 
1 2 3 
4 5 6 
D+2 360 
D 
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0 0 0 
0 0 0 
FORMAT D 
N MUST CONTAIN AT LEAST ONE NON-ZERO ELEMENT 


2+FORMAT B 


w 


4 5 
6 7 8 
D<F+FORMAT А 


56 53 7568 0.02 
pF 


VFORMATLUJV 
V ReFORMAT М.А 
[1] +((A/A/R*O=N),2=ppN)/7 4 
[2] >(0-р.М)р5 
(91  N«(1,0,N)pN 
[4] МГ4;Е1«МГ4;В1%(хМГ4;81)х10ж-6-| Ce] NLA; Re LA! "р(у/-8)/11рр8%;1 


=0)10])#2.30259 
[5] Rew 
[6] +0 
Тр "М MUST CONTAIN АТ LEAST ONE NON-ZERO ELEMENT' 
8 Rett 


problem section 


Problems and Solutions should be sent to: 


Robert A. Smith 

15701 Bradford Drive 
LAUREL, Maryland 20810 
U.S.A. 


New Problems: 


13. Vector to Number Conversion: Given a vector which contains only the digits 
0 through 9, convert that vector to a number with the first element of the 
vector as the integral part of the number and the other elements of the vector 
as the successive digits in the decimal part. 
For instance, 


3 1 4 1 5 9 + 3.10159 


(five characters, in either origin). 


L” 


E. 
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14. Progressive Dyadic lota Problem: (Jeff Lewis, The Rouse Co.) Find a line of 
code, which given a vector (say L) and either a scalar or vector (say R) of the 
same type as L, will find the occurences of the elements of R in L (just like 
LAR) except that duplicate elements іп R are handled differently. 

For each set of identical elements in R, the first one is assigned the subscript 
of its first occurence in L, the second one is assigned the subscript of its 
second occurence in L, etc. Also, like dyadic iota. if an element in R does 
not occur in L (or does not occur enough times in L) then it is assigned the 
value of one plus the highest allowable subscript for L. 


An example (in origin 1): 


Le' ABACDSC' 

Re" DDBACBAXB' 
result= 5 8 2 1 4 6 3 8 8 
(twenty-seven characters, in either origin). 


15. Ranking problem: Given a numeric vector, assign a rank to each element with 
duplicate elements assigned a rank equal to the average of the positions for 
which they tie. 

An example (in origin 1) 


У+18.3 12 6 18.3 0 6 
result= 5.5 8 2,5 5.5 1 2.5 


(thirteen characters, in either origin) 
(cf. this magazine, Vol. HI. Nos. 2 & 3. top of page 10). 


Solutions and comments on the previous problems follow: 


4. Max Row Indices Problem: The record, in origin 1. for this problem has been 
lowered by Roy Sykes (STSC) to sixteen characters by using 


(See (pM)pf YH)11 


7. 214 Combinations Problem: E.V. Gritfith (IBM) quickly caught the error I 
made in stating the first solution to this problem. ! really meant to use grade 
up instead of grade down. The corrected solution reads 


1*8(2,218)04|4 OL Ci eww 
10. Array Sort Problem: Roy Sykes came up with a shorter solution to this 
problem also. In origin ] (thirty characters): 


CCMDEB MI (ор CÀ M) $0101 
In origin 0, simply change the ceiling operator to a floor. 


11. Character Matrix Adjust Problem: Al Rose's (STSC) solutions still stand as 
the record at fifteen characters for right adjust 


(1-(М=' 1011004 


and seventeen characters for left adjust 
Сла (фна! 1)11)04 
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SPEM 


12. Diogenes Divide problem: 


b. 
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Another solution to the left adjust problem was found by William Blankinship, 
(DOD). Although not minimal. it does, however. illustrate a different use of 
the circle operator. 


(L(Co/us(Mz* 1'),1)«2)04 


For scalar op: AxiB 
Outer product: — Ae x38 
Inner product-]; Ая» х28 where а stands for any scalar dyadic operator 


except + 
The case of reduction and the second case of inner product do not seem to have 
any reasonable length alternatives. Perhaps a reader can come up with a better idea. 
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° lit ÁN 13) SUMMER OF 72 


John Carpenter, University of Texas at Dallas, the new 
Project Manager of the SHARE APL Project indicates that the 
following meetings are scheduled for Toronto August 7-11, 1972: 

MONDAY 8/7/72 and TUESDAY 8/8/72 ALL DAY WORKING SESSIONS 
BOTH DAYS 

Agenda includes: Consideration of outstanding resolutions 

and IBM's responses, investigating current technical problems, 

and reorganization of the project. 
WEDNESDAY 8/9/72 

J.M. McCleary (IBM) - "A Departmental MIS Using APL\360 " 

James Higgins (NYI) - "Management of APZ Time Sharing 

Activities" 

THURSDAY 8/10/72 

G. Foster (SU) - "Some Cost Comparisons Between APL and 

FORTRAN" 

Robert Goodell Brown (VISITOR) - "Choices Among Alternative 

Applications Techniques" 

К.Е. Iverson (IBM) - " АРІ in Exposition" 


ай 
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THE FUTURE OF THE QUOTE-QUAD 


As mentioned above, and elsewhere, new editorial leadership is 
being sought and we are planning that APL activities and certainly the 
Quote-Quad be continued and expanded. 

We must apologize for the slowness in getting the previous issue 
(Volume 3, Number 4) to you. Through an error in the mail room the 
material was not mailed First Class, Because of the size of this issue 
and other financial considerations this issue is being sent in much the 
same way. 

We have reached the end of Volume 3 and by the time you read this 
we may have reached the end of our financial rope. Part of our problems 
stem from the fact that we asked each of you to donate $3 (in the U.S. 
and Canada) and 56 elsewhere to cover the cost of postage and 
reproduction of Volume 3 of the Quote-Quad. We originally planned on 
sending out 4 issues of about 160 pages total. You now know that we 
have sent 4 mailings containing 5 issues and about 230 pages. Also, 
since this is a non-profit enterprise, we have continued to mail to all 
who were readers of issue 2.6 even though some of the readership has 
not responded to our appeal. 

We have been able to meet unplanned costs in the editing and 
layout process because of a small surplus from the Berkeley Conference, 

The additional burden of producing and mailing the extra pages have 
stretched things, however. 

The next few months are now critical because we need time to react 
and respond to the "opportunity" which ACM has created and which we had 
originally hoped would have presented itself, late last fall, rather 
than at this point in the Quote-Quad cycle. 

We are going to have to raise the price of Quote-Quad and reduce 
costs, (without sacrificing quality). The problem is that until we have 
the cost figures we can not know the trade offs to know how much of an 
increase .that's why we need to know from you as to what you want from 
the Quote-Quad and what it is worth to you. 

We will not charge what the traffic can bear only what it takes to 
get the job done, Tell us what you want done and what you will do to 
help and we will try to solve the problem, 

In all fairness to many of you who have responded but have not 
heard from us, correspondence has been running way behind because of a 
loss of volunteer secretarial service. Your patience and continued 
understanding will be helpful and appreciated. In the meantime please 
be aware that we can not: 1) provide library or subscription rates, 

2) invoice you, 3) track down your inquiries or financial questions 
unless we know to whose name the issues are being sent. 

All who have issues due in Volume 4 will receive them or a pro- 
rated amount when rates are known. 

Finally, we still have no details on the Proceedings from the Paris 
Conference COLLOQUE APL, nonwithstanding IRIA's offer of 6 August 1971 
to send further information. 


> 
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PLEASE FILL OUT AND RETURN TO: 

GARTH H. FOSTER 

Department of Electrical and 

Computer Engineering 

101 Link Hall 

Syracuse University 

Syracuse, New York 13210 
I do Ü do not Ü favor associating APL activity with ACM's 
SIGPLAN. x 
I am an ACM member and my membership number is 
I am a member of SIGPLAN D; and/or the following other SIGS 
or SICS: . 
Ü I am not a member of either ACM SIGPLAN because my 
professional interests are allied with tt» following field(s) 


Signature 


Please include/or attach any comments or suggestions particularly 


if you don't favor association with ACM. 


layout/design Arlene E. Azzarello 
cover Dick Davies M 
production — MollieO Patrick Ыы 
printing & binding Consolidated Publications, Inc., Sunnyvale, CA 


Each newsletter in APL QUOTE-QUAD: The Early Years has been reproduced in its 
original form. In those cases where APL expressions were illegible, we have reset the 
APL font. However, we've made no attempt to correct errors which may have occurred 
in the original versions. And, we hope we've not introduced any mistakes in the process 
of providing a readable version of the original APL. 
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